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EEBRWKER5 CLUB 

NEOERLflttO 



een club van 6502 
gebr u i kers 



Het doe I van de verenigina is: het bevorderen van de kenn i su i tw i sse l i rig 
tussen de gebruikers van 6502-computers, zeals KIM, SYM, JUNIOR? AT.M-65, 
System 65, ACORN, PET en CBM, APPLE en LISA en CHE-1, ATARI, de Proton- 
CnmPUt^rs, ITT 2020, PEARCOM, PC-100, OSI, BBC, VIC-20, COMMODQRb 64, 
PALLAS, BASIS 108, SBC 65/6S enz. 

Dpzp kenn i su i tw i sse I i ns wordt o. a. serealiseerd door vijf maa 1 per jaar 
DE 6502 KENNER te publiceren en viJf maa l per Jaar een c l ubb i J eenkomst 
te houden, en we 1 als voist: 



Versch i J n i ngsdata 
DE 6502 KENNER 



B i J eenkomst en 
van de club 



derde zaterdag 
van de maanden : 
f ebruar i 
me i 

ausust us 
ok to be r 
december 



Reg i o Den 
I n I . 



Haas/R 1 dam 



Gerard v. Roeke i 
V. d. Paimstraat li-C 
3 1 35 LK V 1 aa r d i n gen 
Tel . : 010 - 351101 



derde zaterdag 
van de maanden: 
j anuar i 
maart 
me i 

septembe r 
november 

Reg i o Am hem 

le en 3e Ma-avond v. d. maand 
in HET DORP 

(zaal wordt aangegeven in de 
ha I van de personee I sf I at 
In I. s Henk Deutekom 

Te I . : 0S303 - 8937 



Naast deze aktiviteiten kunnen de leden sebru i k maken van c l ubf ac i I i te i ten 
zoals de KIM-c I ub-KIMi de KIM-c I ub-JUNIOR, de cassettebibl iotheek en de co- 
pyservice sepubl i ceerde artikeien. 

De KIM GEBRUIKERS CLUB NEDERLAND is een volledis onaf hanke I i J ke verenising 
met st at uten en een bestuur. De club is i nseschreven biJ de Kamer van Koop 
hande 1 en habrieken voor Hollands Moorderkwat i er te Alkmaar, onder nummer 
634305. 

De samenste I i i ng van het bestuur is thans ais volsta 



'oorz i tter 



Erevoor z i tter : 
Sekre'tar i s: 



Penn i nsmeester : 



Ledenadm i n i st rat i e : 
Redaktie DE 6502 KENNER 



Accomodat i e : 
Ere I eden : 

fid res van de veren i g i ng 
L i dmaatsc happen : 

Advertent i etar i even : 



DaseiiJks bestuur: 

R i n u s V I ees c h-Du bo i s 

F. Ni sht i nsa I estraat 212 

2037 NG Haarlem (023 

S i ep de Vr i es 

Ruud Uphoff 

Voor bu rg pad 10 

6843 EM ARNHEM <:0S5 

C 19. 00 
Riet Uphoff - Burg hoc m 
voor ad res: zie biJ sekretaris 
Leden : 



3099: 



Ruud Uphoff (zie biJ 
Will em L. van Pe 1 1 
Jacob Jordaensst raat 
2923 CK Kriinpen a. d. 



sek retar i s) 



15 

X aJss 1 *** 1 t 

(01807 - 19881 
Riche A. van St een 
Vinserhoed 11 
6935 BZ DIEREN 

Mw. H. de Vries - Van der Winden 
Anton hue I I er 
zie adres v. d. sekretaris 
Ft. 45,= per ka I ender J aar , postreke 
r. i ng 3757649 t. n. v. KIM Gebru i kers 
Club Nederland te Arnhem 
Op aanvraag biJ de redaktie 
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KENNER 



De 6502 KENNER is een 
uitgave van de KIM Gebrui- 
kers Club Nederiand. 

Adres voor het inzenden 
van en reakties op artike- 
len voor DE 6502 KENNER: 

Hi! lea L, van Pelt, 
Jacob Jordaensstraat 15, 
2323 CK KRIMPEN AAN DEN 
IJSSEL. 

Redaktie De 6582 KENNER: 
Vaste wedewerkers: 

Uiilea van Pelt 
Gerard van Roekel 
Frans Saeehuijzen 

Jaap van Toledo 

Freelance sedewerkers." 

fldri Hankei 
Renee de Hoop 
Fridus Jonkaan 
Herman Kuyvenhoven 
Anton Muller 
Koen van Nieuwenhove 
Erwin Rosseeuw 

Gehele of sedeeitel iJke 
overnawe van de inhoud 
van DE GSB2 KENNER zonder 
toestawing van het be- 
stuur is verboden. Toepas- 
sins van sepubi iceerde 
program's, hardware etc. 
is alieen toegestaan voor 
persoonl ilk gebruik. 

DE 6582 KENNER verschwnt 
5 x per jaar en heeft een 
oplase van 320 exempiaren. 

Copyright <C) 1982 KM 
Gebruikers Club Nederiand. 

De voorpagina is een aqua- 
rei van een KIM, seschil- 
derd door: 

Rinus Vleesch Dubois. 



INHDUDSOPGftVE DE E502 KENNER NR. 27 AUGUSTUS 1983 



1. 

2. 
3. 
4. 
5. 

6. 

7. 
8. 

9. 

10. 

11. 

12. 
13. 

16. 

15. 

16. 
17. 

18. 
19. 

20. 

21. 
22. 
23. 
24. 



Van het bestuur 

UITNQDIGING Kiiri Club Biieenkoflist Heeastede 

Cassettebibliotheek 

Van de redaktie 

Progranmeren set FOCAL 
... door J. Jansen 

COMMODORE 54 Print Routine 
... door Anton Mueller 

Nosaaals: De Basic Co«pressor 

USR - routines 

... door Ruud Uphoff 

Suggest ies t.a.v. Basicode 
... door Wouter van Goor 

Koppel ins van JUNIOR aan 8" Floppy 

Met FD 1771 controller 8" single en 5" double density 

... door Koen van Nieuwenhove 

BASIC-Prosramaa SUPER STAR TREK 
Nederlandse versie van het bekende spei 
... door fldri Hankei 

KIN-1 Tekstverwerkins wet Teletype KSR33 of ASR 
... door J.C.J. BeiJer 

IDSfl 

ID en Sfl opzoekprograawa 
... door Jaap P. van Toledo 

Telefoonbeantwoorder 

... door Kaary Vandendriessche 

UftRT-schakelins voor JUNIOR 
... door A. A. Zwart 



2. 
14. 
3. 

s. 

6. 
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IS. 

IS. 



34. 



38. 
41. 



JAARSTUKKEN 
Howcan 

... door R.A.F. Bens 

Akoestisch Telefoonmodea Eiektuur 

Proton's JUNIOR DOS 
... door Piet Fransen 

SPiraal (KIM) nu voor JUNIOR 

Bestel l insen bi i Proton 

HCC-dagen 2i en 22 oktober 1983 

Boekenlijst voor S502-gebruikers 

Automat ische Register Uitlezing II 
... door Paul van Niekerk 



25. Marktinfo 



aiddenpagina's H1-M4 
IK. 

2. 
3. 

3. 

3. 

5. 
29. 
48. 

4,18,36,40. 
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Door mijn werkzaamheden ben ik in de gelegenheid de laatste 
trend te volgen op o.a. net gebied van hard- en floppy-disk- 
drives. 

Onlangs was ik op bezoek bij de firma Rodim, een jonge fabri- 
kant op net gebied van 15 1M inch harddisk-dri ves . In capa- 
citeiten varie'erend van 5 t/m 40 Mb. 

Na een bezoek aan de montagehal, welke geheel voldoet aan de 
eisen van een ' clean -room ' waarin een overdruk heerst om al- 
le mogelijke stofdeeltjes buiten te houden en waar de tempe- 
ratuur zeer constant is, ben ik gecon f ron teer d met het feit 
dat dergelijke fabrikanten een zeer hoogwaardig technisch 
produkt produceren, en kosten noch moeite sparen om het eind- 
produkt aan de hoogste eisen te laten voldoen. 
Het verbaast mij dan ook ten zeerste mensen te ontmoeten, 
die doodleuk zelf sleutelen aan dergelijke produkten, om 
vervolgens zeer teleurgesteld te zijn als het niet blijkt te 
lukken . 

Hiermee wil ik diegenen waarschuwen die, vaak uit onwetend- 
heid, hun technisch hoogwaardig produkt ongewild ontregelen. 

Verder heb ik tijdens mijn bezoek een zogenaamde •slim-line' 
harddisk gezien, waarvan de capaciteit 10 Mb is en de afme- 
tingen: 150 mm lang, 90 mm breed, en 40 mm hoog! U leest het 
niet verkeerd. 

Men kan bij wijze van spreken het hele geval in de zak steken 
en op stap gaan met 10 Mb informatie. 

Ook op het gebied van f loppydisk-systemen is de trend aanwe- 
zig om steeds meer informatie op een kleiner schijf je te 
schrijven. De miniaturi sering brengt een verfijnder techniek 
met zich. Ik raad U aan dergelijke technieken zoveel als mo- 
gelijk is te volgen* 

Tk hoop dan ook de volgende keer dieper op deze materie in 
te gaan, bijvoorbeeld door middel van een lezing, ondersteund 
door een demonstratie van dergelijke apparatuur. 



Rinus Vleesch Dubois, 
Voorzitter . 



AKOESTISCH TElEFQQNWDEH EL EKTUUR 

Iri het februanmiMMer van Eiektuur pubiiceerden J.J.fi, Habets en 
C.9. Truijens een akoestisch teifoomnodew. 
Qnze ciubsenoot fldri Hankel deeide «ede voor dit stodem so-ftNare 
te hebben ontwikKeld, Het z it er dus in dat JLWIQR-gebruikers qp 
niet a! te lanse tension deze software zulten kunnen toepassen. 
Er blijkt echter nog een kink in de kabei. Het akoestisch te!e- 
fooTMiBder. vertoont een diankewent aan de PLL-schakel ins van de 
ontvanser. fen probeert er nu achter te koisen wat er precies aan 
de hand is en op we ike wiJze het euve! kan worden verhoipen. Zo- 
dra dit probieets is opseiost wordt een en ander bekend seaaakt. 
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Piet Fransen 
Voordewmd 21 
1834 K5 Amsterdam 
Tel.: 020 - 313271 

Onlays heeft de Fa. Proton 
een revisie aan hun aonitor 
uitgevoerd. De veranderingen 
zwn ook doorgevoerd in de 
voor JUNIOR beschikbare ver- 
sie. Deze meuwe versie heb 
iK in iiin systeem opgenoaien 
m funktioneert uitstekenc. 
De verander i nsen z i i n a t i e 
directs verbetenngen, ft! 5 
eerste is er een entry-point 
bugekoaien waariaee het «oge- 
I iix is vanuit een gebrui- 
kersprosranaa direct van de 
disc-dnve ieb.ru iK te token. 
Nu is het nameiuK aosei wk 
door m de registers X en Y 
een seta l te Plaatsen en op 
de Monitor RAM oiaats "NAME" 
een fiieriaas van zes letters 
te Plaatsen i waarna het pro- 
gramia zelf in de discdt- 
rectory deze fiienaaa inter- 
preteert. Het format voor 
net iezen en schnJven tuoet 
jten we! zelf maken, Maar dat 
gaat met behuls van de be- 
staande ervtrypo.nts zeer ge- 
■aMteiiik. In hi jn Basicrou- 
tine heb ik dit reeds 9edaan 
en net funktioneert perfect. 
Met net nieuwe entrypolnt is 
net mi atosei uk geworden on! 
b.v, m de toetsherkenning 
van de Closer Asseitbier het 
voigende op te nenien: 
"SAVE mm l". Na het m- 
toetsen van return worat dan 
de betreffende file op disci 
gestorea> met a! 3 f ilenaam '■ 

Een tweede uitbreid ins is de 
toets "M a , waartsee acnter de 
acht gedispiayde geheugen- 
Piaatsen ook de ASCII-waar- 
den van de geheugeninhoud 
wordt uitseprint. ft is voor- 
beeld: 
{«>■ 

53 45 4E 49 4F 52 08 01 
SENIOR 

Deze uitbreidins is hand is 
bij onderzoek in de seheu- 
genpiaatsen van een source. 
Ook is een stin-toets inse- 
voerdi zodat bu geheugenon- 
derzoex met steeds net a- 
dres opnieuw hoeft te worden 
opgeseven. 

Si deze veranderinsen hebben 
seen invloed op de bestaande 
versie. fllie reeds bestaande 
funkties bi iJven norwaai in 
werking. De enise verande- 



r ins in de aonitorf i le is. 
dat de adrespiaatsen van de 
twee veranderingen die ik in 
het artikel "Maak van JUNIOR 
een SENIOR" heb genoead. nu 
zijn veranderd. 
In punt 5 staat onder Di dat 
op *E23B-$E28E ( 20 CF Eft ) 
staat. Dit is nu seworden a- 
dres $E230-*E292, waar nu 
staat ( 20 18 EB ). 
Voor de initial isatie routi- 
ne was het adres $E057-$E359 
waar stond ( 20 93 E0 ), dit 
is nu geworden adres $E869- 
$E85E waar nu staat 
( 20 95 E0 >. 

Wat op deze seheusenpiaatsen 
kan of met worden gezet is 
behandeld in het bet r " 
artikel. 



INHQUD JUNIOR CASSETTE NR. 3 KAN' 1 SOURCE 



SPIRAftL CKXID NU VOOR JUNIOR 



Het programaa 5PIRAAL Bit de 
S502 KEWER nr.25 kan op sitr 
peie wijze worden aangepast 
voor de JUNIOR. Hen »oet het 
prcsrannia via de stanoaard«o- 
n;tor opstarten anaers 
gaat net mis. 



Adres: 

1220 
0230 
328C 
023 r 
E292 
82C5 
02C9 



wordt: 



8D 07 17 

AD 87 17 
8D 07 17 
20 IF IF 
AD 07 
20 43 
23 SA 



17 
IF 
IF 



SD F7 
ftD F7 
3D F7 
20 3E 
ftD F7 
20 AC 
20 F9 



iA 
if) 

ID 

IB 
ID 



De subroutine CARLO moet voi- 
ledig worden veranderd (82A2 



ID 


NAAM NR.O/E502 


SA 


Eft 


01 


RENUMBER SYH-BASIC V. JUNIOR 




aim 


QL'i.3 


81 


RENUMBER SYH-BASIC V. JUNIOR 




5808 


5D29 


02 


APPEND SYH-BASIC V. JUNIOR 




5830 


5573 


82 


APPEND SYH-BASIC V. JUNIOR 




5320 


5573 


03 


BASIC COHPRESSGR V. JUNIOR 


25 


5000 


BSC? 


83 


BASIC COMPRESSOR V. JUNIOR 


25 


5000 


B5CF 


04 


NPRCHft (nieuwe PRCriA-routme) 


26 


mm 


I-S73 


84 


NPRCHA (nieuwe PRCifi-routine) 


26 




85 


ADRESS (Hicro-Ade verplaatsen) 


2B 


mi 


5F13 


35 


ADRESS (Micro-Ade verpiaatseiv 


25 


5800 


5rB3 


05 


MASTERMIND R.vISSERS 


2E 


5038 


b£2f 


86 


MASTERMIND R.VISSERS 


2b 


5808 


6E2? 


37 


GUTCLX (KLOK/S SCHAKELPOQRTEN) 
OuTCLK (KU2K/S SCHAKELPGGRTEN 


25 


5080 


7BF3 
7BF3 


07 


25 


5388 



INKOUD JUNIOR CASSETE NR. 3 <AKT 2 CODE 



ID 




5H 


;.K 


31 


mmm syvbasic v. mm 




3202 


853' 


11 


RENUMBER SYH-BASIC V. JUNIOR 




82130 


35S r 


82 


APPEND SYH-BASIC V. Ju*I0S 




Uit!8 


0224 


02 
33 


APPEND SYM-3ASIC V. JUNIOR 
BASIC COMPRESSOR V. JUNIOR 




am 


0224 


25 


3388 


85fl 


03 


BASIC COMPRESSOR V. JUNIOR 
NPRCHA (nieuwe PSCHA-routme) 


25 


3338 


RF1 


04 


2b 


8338 


83B5 


34 


NPRCHA (nieuwe PRQiA- routine) 


25 


33»8 


03B6 


05 


ADRESS (Hicro-Ade verpfiatsen) 


25 


3288 


829F 


35 


ADRESS (Kicro-ftde verplaatsen) 


25 


8238 


829? 


0E 


MASTERMIND R.VI5SERS 


26 


3232 


3453 
8453 


0b 


MASTERMIND R.VISSERS 


26 


3238 


87 


OUTCLK (KlOh/3 SCHAKEl?Q0R t EN) 


25 


2288 


83F7 


87 


OUTCLK CKLQK/8 SCHAaELPOORTEN) 


26 


8238 


83^7 



Programme s in de cassettes ;b l iofneek Ziin of or«9:neei 
van onze ciubieden of bemerKinten van prosra««a ! s ait 
het Fi rst Book of H i is, of anderszins. Aiie recnten van 
de Prosrawsa's bluven aan de auteurs vocrbehoutsen. De 
kosten van de cassette ziin KosteidelHtend en Riet be- 
doeib o« de prograimia's te Koaen! 
DE CUB IS EN WORST GEES HANDEL 1 ! 
Kosten per cassette; fl. :2i53. 
Besteiien van de cassette oncer opsave van na«s» acres, 
postcode; etc. en nuaaiter van de cassette + naaa van net 
systee» (JUNIGR/KIM) versezeid van een sirobetaaikaart 
of coor overschriJvins op POStreKening 841433 t.n.v. 
W.L. van Peit te ititm a.d. IJssei. Hncere w.jzen van 
besteiien zijn niet MosehjK. 



t/ia 02BC): 












82A2 


A9 


7F 




CARLO 


LDA #7F 


zet de poorten 


02A4 


3D 


31 


1A 




STA PADD 


goed 


02A7 


A2 


El 






LDK #08 


begin met diB 


02A9 


A0 


8E 






LDY #06 




82A3 


34 


FC 




LOEP 


STY sFC 




02AD 


BS 


E7 


00 




LDA COUNT; Y 


haai display op 


32B0 


49 


7F 






EQR #7- 


initieer 


02B2 


20 


E3 


ID 




JSR *1DE3 


display en wacht 


82B5 


A4 


K 






LDY $FC 


een tiidie 


82B7 


88 








DEY 


al ie display's 


02B8 


D0 


Fl 






BNE LOEP 


gehad? 


82BA 


58 








RTS 


ja» keer terug 


02BB 


EA 








NO? 




02BC 


EA 








NOP 





zie: ELEKTUUR februari 1981. 



BESTELLINGEN BIJ PROTON 



Voor het besteiien van 
art ike 1 en van Proton 
Kannen ciubieden voor- 
taan direkt bi^ Proton 
terecht. De sekretaris 
heeft aldaar een isden- 
i ijst neergelega, zodat 
Proton zelf de control* 
kan doen. Proton seeft 
aan onze ciubieden met 
onbelan5r uke kortinsen 
op naar artikelen. 
Proton wi i voc«r haar PC- 
cowputers koaen tot de 
oprichtins van een ge- 
bruikersgroep. Wie zich 
daarvoor wi l aanmelden 
kan dat bw de redaktie. 
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KENNER 



.gBRKflMNIGR 



TINY C5.5K) BASIC 



SAVE fiND 
DATA 



LOftD 




Er \% bi:« uitaeverij NfiSiTBN 
3 RESS sen n-eun etectronica- 
maandbiat verscntrseiOi let de 
*aam iNFORHA^ICS (v/h ETI) 
r er .2 wordt een 6582 ze>f- 
mqim "Computer beschreven. 
/ocrsopis Korct senandeid! 
WW feasispr nli een RArf- 
xaarti een epromkaari, sen 
I/O-xaa*", eer: eproaprog ram- 
mer an set! je-ru.dskaart. 



3-BIT CUDS MICROPROCESSORS 
disstWte 4BmW at 2MHz 



365C0B CMOS Microcomputer 

The 3-b-t R65C08 microcom- 
puter system is produced 
tfrth CMOS Si i i con Gate 
technology. Advanced &$- 
tee architecture enhances 
its performance speeds; a 
fart a of software compa- 
t ,bie microprocessor (CPU) 
devices enhances system 
cost -effect iveness. Roc it - 
lite < i also provides memory 
and sic recompute r systetsts, 
as wen as sow-cost design 
aids arsd documentation. 

Instruct »on Set 



De heer J. Jansen, Gerards- 
weg 30. 6525 RT Nijmeien, 
telefoon: 088 - 562882, ont- 
wikkelde een eisen BASIC. D« 
Basic neeat de ruinite vanaf 
$2008 tot I35C8 in. is 10 x 
snetler dan de Basic van de 
ZX 8! en 2 x snel ler dan de 
Basic van de VIC-20. State- 
ments: LET, PRINT, REM, WAIT 
INPUT, GET, BEEP, CLS, RND, 
ABS, GOSUB, RETURN, GOTO, 
POKE, PEEK, LINK, FOR NEXT, 
IF THEN, ON GOTO/ GOSUB. en 
de commando's VARIABELE. DE- 
CIMAL, HEXADECIMAAL, ESCA- 
PE, RUN, LIST, TOP, FREE, 
CLEAR, NEW, CSflVE, CLOAD. 
Besinadres: $2808 
Startadres*. $3198 
Startadres: $3B6F (warm) 
Eindadr.+i: $36C8. 
Er is een 18 pagina's tel- 
lende manual bi J seschreven. 
Prijs: F!.25,= incl. casset- 
te, Manual en porti. 
Voor inforwaties en bestel- 
! i ngen wende men z i ch tot de 
heer Jansen op bovenstaand 
ad res. 



(13 tm instruction 

(2) previous instruction 
with additional addres- 
ses- aode(s) 

(2) 9SD Add Memory to Accumulator with Carry 

(2) AND l! AKD" Memory with Accumulator 

ASL Shift left One Bit (Memory or Accumulator) 

U) BBR Branch on Bit Reset 

(ii BBS Branch on Bit Set 

BCC Branch o>! Carry Clear 

ECS Branch on Carry Set 

EES Branch on Result Zero 

;'2> PIT T est Bits in rfemory with Accumulator 

Bfll Branch on Result Minus 

BNE Branch on Result not Zero 

B°L Branch on Result Plus 

I!) BRA Branch A'ways 

BRK Force BreaH 

9VC Branch on Overf iow Clear 

EVS Branch on Overflow Set 

CLC Clear Carry Flag 

OLD Clear Decimal Mode 

CLI Clear Interrupt Disable Bit 

CLV Clear Overflow Flag 

(2) CMP Compare "Memory and Accumulator 

CPX Compare Memory and Index X 

CPY Compare Memory and Index Y 

(2) DEC Decrement Memory by One 

DEX Decrement Index X by One 

DEY Decrement Index Y by One 

(2) £0R "Exclusive-OR" Memory with Accumulator 

(2) INC Increment Memory by One 

INX Increment Index X by One 

INY Increment Index Y by One 

(2) JMP Jump to New Location 



(2) 



(2) 



(1) 

(1) 



(1) 
(1) 
(1) 



(1) 
(2) 



U) 



CD 
(1) 



JSR 
'lDS 
LDX 
LDY 
LSR 
NOP 
GRA 
PHS 
*HP 
PHX 
PHY 
?LA 
PLP 
FIX 
PLY 
RMB 
ROL 
RCR 
RTI 
RTS 
SBC 
SEC 
SED 
SEI 
SMB 
STA 
STX 
STY 
STZ 
TAX 
TAY 
TRB 
TSB 
TSX 
TXA 



Net schrijven naar en oPha- 
len van cassetteaand van BA- 
SIC proiraama's is voor oe- 
zitters van een uitsebreide 
JUNIOR of andere machine geen 
enkel probieem. De monitor 
l/'0-rout;nes verzorgen deze 
opdrachten. Het wordt anders 
a is we Basic-data naar de 
band Hi Men schrijven en er 
weer vanaf w< l len ha I en. 
Stei : U heeft een Basic-Prcr 
sraiifna waarr«e b een adres- 
senbestand Hunt samenste i ; en. 
CtftlHE op de Basic-cassette 
nr. 2 is zo'n vooroeelc. A:s 
U het prosramma laadt, is de 
I list weer leeg en moet a les . 
weer oPnietrt ingevoerd, ftet 
benuiP van Save ane Load kunt 
U de insevoerde adressen op 
de sand sewaren. 
John M, E:a;ocK Pubiicee r de 
in Micro The 5322 Journal van 
af»n i '38 een routine on het 
saver, en loader van Basic 
Data "abies te verzorgen. 4s 
netoen deze machinetaa: routi- 
ne aamepast voor J-JMOR set 
5YM-Basic en is, met twee te- 
mofistritieuresramaa's in Ba- 
sic te verkrwsen doe? Fl.Si* 
over te scnruven op Bostre* 
kenins 841433 t.n.v. van 
Pelt te Krrtpea a.d. Ussei. 

Jump to New Location SaviM Return Address 

Load Accumulator with Memory 

Load Index X with Memory 

Load Index Y with Memory 

Shift One Bit Right (Memory or Accumulator) 

No Operation 

"OR" Memory with Accumulator 
Push Accumulator on Stack 
Push Processor Status on Stack 
Push X Register on Stack 
Push Y Register on Stack 
Puli Accumulator from Stack 
Pun Processor Status from Stack 
Pull X Register from Stack 
Pull Y Register from Stack 
Reset MeMory Bit 

Rotate One Bit Left (Memory or Accumulator) 
Rotate One Bit Ri9ht(Memory or Accumulator) 
Return from Interrupt 
Return from Subroutine 

Subtract Memory from Accumulator with Borrow 

Set Carry Flas 

Set Decimal Mode 

Set Interrupt Disable Status 

Set Memory Bit 

Store Accumulator in Memory 

Store Index X in Memory 

Store Index Y m Memory 

Store Zero 

'ransfer Accumulator to Index X 

ransfer Accumulator to Index Y 

est and Reset Bits 
T est and Set Bits 
T ransfer Stack Pointer to Index X 

ransfer Index X to Accumulator 

ransfer Index X to Stack Register 

ransfer Index Y to Accumulator 
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Op net Ptmt kwa! iteit van DE 6582 KENNER wi i ik nog iets 
aan U kwi it. De laatste tiid is daarover at het een en an- 
aer gezegd, en dat iriag naar U toe een mdicatie im dat 
het de waameewbare kentekens zun van een bestuur en een 
redaktie die dit onderwerp zeer ter harte saat. Het 9aat er- 
b; j mm meer over de vraag hoe een mzending zo snel nose- 
i iJK kan worden sepiaatst, maar aeer nog hoe maken we een 
zo verantwoord aiogeluke keuze uit de totate voorraad art i- 
kelen, wet behoua van het cr iter iu» oa een voor Pubti Katie 
in aanserkina kotiend artikei zo snel «oge i i J K op te newen. 
Bedoelde keus worat beinvioed door beweften aan software- 
artikeien voor een m Personals zo gedifferentieera lezers- 
pubi teki bij voorkeur seiardeerd met hardware-informatie en 
emse standaards voor bestuur, redaktie, rsarktinforwatie, 
e.d. Aan die kwahteit kunnen ook de leden/lezers een niet 
seringe, ots met te zeggen een be'ansrijke biJarage severer, 
door te zorgen dat in elk geva! van at !e in onze ciub ge- 
oruikte conisuters aatenaat wordt insezonden naar de redak- 
tie. IK zeg met opzet "a!le ... computer", o«dat we daarwee 
een poging Kunnen wagen de geditfenrentieerdheid te laten 
weersPiegeien in Uw ctubbiad. Dm het sioipet te zeggen: iaat 
geen zeif ortwikkeide software voor Uw QSI, PET, AItf-65, de 
PRQTON-cosiPUters, APPLE. ftCORN, KIM, BASIS 108, JUNIOR, etc. 
in Uw -aae 1 1 saers. Het kan in Basic, Pascal, Forth, tiachine- 
taal. !*icro-Ade zijn, het kan een hardware artikei zijn, de 
redaktie bi ijft een onverzadsgbare behoefte hebben aan Uw 
inzendi risen, en de daarwee te ontwikkeien kontakten. De eis 
dat een en ander behooriijk becodimentarieerd woet worden is 
nog steeds van kracht, dat wei. Er rnoet dus wei enige aoei- 
te worden gedaan as het een etiket "kwaliteit" toe te ken- 
nen. 

Iritussen hebben we OP de redaktie, door de grote strooa van 
enthous i aste snzendingen, waarbij zeer oaivangri jke, wei de 
grootste nioeite ok een concept te vinden voor de combinatie 
m de inforsiatie zo snel noseliik door te laten stroaen sex 



de ieesbaarheids-kwal iteitseis. U hebt al seaerkt dat we ai 
in zogenaawde "co!flPressed"-fnode, d.w.z. heel kleine letters, 
zijn gegaan. we zul len binnenkort zei-fs over woeten saan 
tot het in compressed-mode "op z'n kant" zetten van de rasi- 
rsa's. Voor soswsigen onder ons kan dat ems bezwaar opie- 
veren. Wu soeten echter oesrip vragen voor dit k seine onge- 
itak ten voordele van de doorstroowsneiheid en in onze po- 
ging eike inzending zo snei aogelijk te PUbisceren. We be- 
schikken inmers over siechts 48 pasha's Per editie, 

Ik heb uiteraard ook al snel bedacht dat a dan het aantai 
edities iaar «oet opvoeren. Dat is heel eenvoudis te real i- 
seren door de contribute arastisch te verhogen. Echter, if 
het we; reeei in deze tiJd een veraubbelde bijdrage te vra- 
gen. Ittfflers, de al lergrootste begrotinspost is - J03isch - 
DE S502 KENNER. Hi; ,ie het aantai edities verdubbeien, can 
EUl je evenredise contributievemogmg aoeten vragen. Het 
pt-obieeas is echter vee! groter dan het zich op het eerste 
gezicht presenteert. Het aantai inzenaingen zai cok moeter, 
verdubbeien. haar hoe doe je dat Met een geliik bi ijvend ot 
traas owhoog iopend aantai? Is denk eerder dat de realite;t 
lit in de oaraekeerae redenering: verdubbe: het aantai led en 
en srobeer aaaruit het aantai i nzend i mm te ha len die een 
toenawe van het aantai edities kunnen garanderen. 
^ i jti filosofie kan nog zo goed Hit, hu is sedoeifid even 
snel a;s de anaere sedachte te Bisiukken, ais de leden met 
bereid zijn siee te vterken. Ik bedoei: van ae leden zau ook 
gevraasd meten worden seer werfkracht aan nu a! net gevai 
is op te brengen naast hun hobfay-aktiviteiten. Ik neb eer- 
der al eens gezegd: de club, dat bent I! 
Het betekent ook dat we een kratntis bestuur net elkaar ae- 
horen op te bouwen. Dat is de wedeverantwoordei ukheid van 
eik !id. Naar Mi J n smaak met het uitbreiden van het ;eeen- 
aantal wet Uw huiP kunnen lukken. Geef gevoig aan de oproe- 
pen die bestuur en redaktie doen, en de kans worat groter 
dat U seer edities gaat ontvangen' 



w'.L van Peit 

HCC-DftGEN 



** De voorzitter van de Hobby Computer Club schreef onlanss dat hu ** 

r ppds tang met genoeaen DE 6502 KENNER leest. Vandaar ook dat hem 

** in ©ditie 26 de aankondiging van de HCC-Dagen op verkeerde dagen op- ** 

** geva! ten is. HI -J rectif iceren uiteraard op ziJn verzoek: ■+•+ 

dp gPbruikei iJke HCC-Dagen worden op vr iJdag 21 en zaterdag 22. okto- *♦ 

** ber 19S3 gehouden in de Jaarbeurs te Utrecht. + :+: 

im Onze club hoopt daar aanwez i g te kunnen ziJn met veel enthousiaste ** 

#* tf=-den. het liefst met hun systeem of andere te demonstreren 6w>0^. - ** 

m zaken. 

mm Heeft U be i ansste I I i ng de club behu I pzaam te ziJn biJ het opbouwen mm 

*m van de stand en /of het representeren van de club a l daar, neem even mm 

mm kontakt op met een van de best uu rs l eden of de redaktie. *# 
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P RO GRAMME REN MET FOCAL 

is een progr ammeer taal die in veel opzichten hetzelfde 
is als BASIC, maar in een aantal gevallen is FOCAL krachtiger. 
Dit wordt geen volledige handleiding, statements als LET, PRINT 
INPUT, IF THEN, FOR NEXT enz in BASIC zijn in FOCAL ook terug 
te vinden. Daarom behandel ik alleen een paar in tere s san te ( re ) 
statements . 

Werken we in BASIC met re ge lnumme r s , in FOCAL werken we met 

groepen (max. 99). Elk verschillend onderdeel van een programma 

komt in een eigen groep. Binnen zo'n groep kan men 99 regels 

gebruiken. Zo betekent 10.30 groep 10 30ste regel. 

FOCAL bezit 'gewone' statements en 'speciale' statements. 

De gewone statements (IF, GOTO, FOR, RETURN, DO, SET enz) 

mogen tot hun eerste letter worden afgekort en werken (ongeveer) 

op dezelfde manier als in BASIC. 

De speciale statements zijn FUNCTIES. Elke naam v/e FUNCTIE 
begint met een 1 F 1 (bv. FCAL , FIDV enz). Het zijn deze FUNCTIES 
die interessant zijn. 

FOCAL werkt (tenminste mijn uitvoering) met 8 getallen nauw- 
keurigheid, maar kent geen we tens chappe li j ke notatie. 

33333.34 Bij het uitprinten van getallen kan men zelf 

1.00 bepalen hoeveel getallen voor en achter de 

-102.51 decimale punt moeten worden af gedrukt . Door 

0.01 deze mogelijkheid komt een reeks van getallen 

22210.00 altijd mooi met de decimale punt onder elkaar. 

In FOCAL is het mogelijk om op meerdere manieren een subroutine 
aan te roepen. Enkele voorbeelden: 

a. dmv DO 3.1 wordt een regel (hier 3.1) als subr. uitgevoerd 

b. dmv DO 3 wordt een groep (hier 3) als subr. uitgevoerd 

c. dmv DO A$ wordt een string als subr. uitgevoerd 

d. dmv FCAL wordt een machinetaal subr. uitgevoerd 

e. dmv FSBR wordt een regel of groep als subr. uitgevoerd 

FSBR heeft als eigenschap dat men een variabele mag meegeven 
naar een subr. met die waarde wordt alles berekend en de uit- 
komst komt weer in die variabele terug. Zeer handig als men 
met verschillende variabelen dezelfde berekeningen wilt uitvoeren. 
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HET GEBRUIK VAN STRINGS: 

Normaal wordt een toetsenbord gebruikt als inputorgaan (input 
device) en het beeldscherm als outputorgaan (output device) . 
Dit is in FOCAL sof twarematig te veranderen zodat men bv. naar 
een printer, casse tterecorder , floppydisc enz. kan o ve rs chake len . 
Het krachtige is echter dat men deze hardware zaken ook kan 
vervangen door software (nl. dmv. STRINGS). 

Het is mogelijk om het toetsenbord te vervangen door een string 
alles wat in die string staat accepteert FOCAL als of het door 
de programmeur is ingetypt. Zo kan men kommando's, statements en 
zelfs gehele regels,die in een STRING staan,laten uitvoeren. 
Ook is het mogelijk het outputorgaan (beeldscherm) te vervangen 
door een string (oid) nu worden alle terugmeldingen in die string 
(oid) opgeborgen. 

Het vullen v/e string kan dmv: 

a. een STring Input ( FSTI ( x , A$ (y ) , z ) ) waarbij x het max. aan- 
tal karakters aangeeft, y de plaats waarin A$ wordt begon- 
nen en z met welke karakter geeindigd kan worden (indien 
nog geen x karakters zijn ingevoerd) . 

b. A$(10)='Q nu wordt de llste plaats van A$ met een ' Q 1 ge- 
vult . 

c. A$ als output device te verklaren en de data die in de 
string moet komen gewoon te laten uitprinten. 

Ik zal een voorbeeld geven van c: 

Dmv SET FODV(A$) wordt het output, device (was beeldscherm) nu A$ 
TYPE (of T) doet hetzelfde als PRINT in BASIC en hiermee kun je 
nu A$ vullen (A$ vervangt immers het beeldscherm, waar het anders 
op zou komen). RESTORE OUTPUT (of R 0) herstelt het outputorgaan. 
SET FIDV(A$) zal het inputorgaan (is meestal het toetsenbord) op 
A$ zetten. Dus alles wat in A$ staat lijkt voor FOCAL als of het 
gewoon is ingetypt. Een ' '. ' bij een TYPE statement print een car- 
riage return (='cr'). 

QUIT is hetzelfde als END in BASIC, er wordt gestopt met het 
programma . 

Nu volgt er een programma dat eerst A$ met een regel FOCAL vult 
en daarna die regel bij het programma toevoegt. 
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1.1 SET FODV(A$) maak A$ output voor het vullen van A$ 

1.2 TYPE "2.1 TYPE X* 3" , I , " R I",.' 

1.3 RESTORE OUTPUT herstel het outputorgaan (evt. R 0) 

1.4 SET FIDV(A$) vervang het toetsenbord door A$ 

1.5 QUIT stop en kijk naar het input device 
wat er gedaan moet worden. 

Dmv 1.1, 1.2 en 1.3 wordt A$ geladen met: 
2 . 1 TYPE X T 3 
R I 

Regel 1.4 zet het input device op A$ en 1.5 stopt het programma. 
Nu wordt er naar het input device (is nu dus A$) gekeken, daarin 
staat een regel FOCAL (+ een 'cr') deze wordt er dus bij geschre- 
ven. Nu wordt er weer verder gekeken in A$ en daarin staat R I 
( = RE STORE INPUT of wel herstel input) en het toetsenbord wordt 
inputorgaan. Er is dus nu regel 2.1 bij het programma gevoegd. 
Er bestaat dus een mogelijkheid om een FOCAL programma te maken 
dat zelf weer een FOCAL programma schrijft. Of een FOCAL program- 
ma dat een regel BASIC in een string opslaat en die string ver- 
volgens gaat vertalen naar FOCAL en daarna die string (wat nu 
geheel FOCAL is) wegschrijft in het geheugen. Een soort BASIC 
naar FOCAL vertaler, geschreven in FOCAL, krijgt men dan. 

HET WERKEN MET INTERRUPTS: 

Het is, in FOCAL, mogelijk om mbv. een interrupt een FOCAL pro- 
gramma te beinvloeden. Dmv. het ' setten 1 van bitjes en een 
statement in FOCAL kan men dan nog enkele interrupts priori- 
teit geven. Er wordt dan door FOCAL zelf gekeken of er een 
interrupt plaats vindt en wat er daarna gedaan moet worden 
waarbij de interrupt met het hoogste prioriteit als eerste 
wordt uitgevoerd. (zelf heb ik hiermee nog niet geexperimenteerd) . 

J Janssen 
Gerardsweg 30 
65 25 RT NIJMEGEN 
tel . : 080-562082 
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C64-Centronics printer interface 
Source listing print routine 

3213 .M fCTSS 

8222 5 CS4-CEKTRCNICS PRIie R3J T I& 

SO ; 

8368 1 COPYRIGHT (0 1383 

to ; 

i OMTCN «ULLES 
BB72 ? 5INJEDR S&1EVM3STRAAT 73 ! 





t%nan> * i fir t 


nil j : bfUJHn 






2230 ; 








2122 GIAIORh 




3 Tin yrT^T* - * fi 

1/u IcEISIEh m 




3113 IahICRB 


.BE ISCvl 






3125 CIRUDBA 


. DE *DD2i 


i BBTS BIS Kc£ 3 




21o2 uRDDRB 




: UH!H Ui?. leu B 




3143 Lf 


.DE $'2fi 






f* j ci (in 

2.52 CR 


.Dc NO 






SioS ; 






CF3B- A3 7F 


81 f6 *NI : 


u;S W/r 


> IklTT DTBT D 


Cr 5J2- 3D 23 DD 


iJibL" 


3 1 K UiMiywKS 




C:35- HO 82 DD 


2132 






CF2S- 33 24 


2232 






3D 2_ CD 


B218I 






wFISO- S3 IS 




i no #' BS'tv"' 
LUH riUiV: 


: UUIU : Vu. Ltil 


CF3F- 3D 25 23 


2233 


nrn *EfT*lC 




CF12- 3s OF 


2 Ac 


LiS wp.t nuSfl 


• TP. TUC PEifTSnuIPC 


CF14- 3D 27 






• OOTklT 3r,||T'^C 

rniNI KUU > ifVc 


CF17- m 


SHPffl ■ 


RTS 


. or 1 " ism Tn PC! i 


CF1S- 4S 


32/3 ; 
3iS3 ?SIN: 


?Hh 


? afivt lrhR .U tit rruSrd* 


CF1S- 2C 21 DD 


2233 PRIKTB1B 


BH JDD21 


! REPEAT READ BUSY LINE 


CF1D- 32 FB 


2333 


BMI PRINTO 


! L^TIL PRIKlt?. SOT BUSY 


CFIE- SB 


2313 


PLfl 




CF1F- 48 


2323 


PHS 


! RELOAD AND STORE CHAR 


CF22- C9 22 


2332 


01? ICR 


■ IF CARRIAGE RETURN T€K 


CF22- 30 22 


2342 


BNE 3 RIN^22 




CF24- as 3A 


3352 


LDfi #LF 


! CHANGE IT liVTC ft LINEFEED 


CF2S- 2D 11 3D 


23E3 3 RINT22£ 


578 CIRICRE 


1 STORE CHAR ISTD I/O REG B 


DF2S- AD 82 DD 


3372 


LDA CIPI0R2 


; GIVE STROBE PULSE 


CF2C- 23 FB 


0380 


AND #*F£ 


! LCw TO Him TRANSITION 


CF3E- SD 22 DD 


3332 


SIR CIRIORfi 




CF31- SD 32 DD 


2423 


LDfi CIAIORfi 




CF34- 29 04 


2412 


GRfi #4 




CF3E- 3D 32 DD 


2423 


SIS CIAIOfW 




CF3S- 6S 


3432 


PLft 


; ! ES T ORE CHAR 


CF3A- 4C Cfl Fl 


2442 


J!*p $-ica 


S GOTO 054 OUTPUT ROUTINE 




3452 i 






CF3D- A3 Cfl 


2450 CLOSE 


LDfi tfl.tFlCfl 


; RESTORE GLITCH VECTOR 


CF-3F- 3D 25 23 


3473 


S7S $3326 




CF42- A3 Fl 


3433 


LDS IH,$FlCfi 




m- 3D 27 23 


3430 


STft $0327 




CF47- £2 


2523 


RTS 


5 RETURN T C CALLER 
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2518 ; 




CF48- 28 32 CF 


8520 KONINIT 


JsR Bill 


CF4B- 20 


0538 






2540 ; 




CF4C- 23 3D CF 


8558 1WICL0SE 


jSR clgse 


CF4F- 80 


8550 


BRK 




8573 i 




CF58- 39 ID 


2582 NARROW 


LDk »1D 


CF52- 23 18 CF 


0592 


JSR PRIN; 


CF55- S3 


3522 


RTS 




3518 ; 




CF5E- A9 il 




LDk Wife 


CF58- 23 18 CF 


2532 




CF5E- SB 


3548 


R:S 




2550 ; 




CF5C- AS IF 


25S3 yiDE 


LBfl #*1F 


CF5E- 20 IS CF 


3572 


TffH OOTMT 

JSfi rRISl 


CFS1- 52 


2552 


RTS 




3592 ; 




CF52- 22 53 CF 


2732 HGNNfOT 


JSR JISRRO* 


CFE5- 32 


0713 


BRK 




2722 i 




CF5E- 22 5S CF 


0730 HONNQRHRL 


JSR MORfifiL 


cfes- m 


2742 


BRK 




2752 ! 




CFfafi- 23 5C CF 


8758 HQNKIBE 


JSR WIDE 


CF5D- 83 


2772 


BNK 




27E2 


.a 



ENTRY POINT FOR SUPERH0N-C54 
RETURN TG SUPERNDN-CE4 

EXIT POINT FOR SUPERMGN-C54 
RETURN TO SUPERNH-CGft 

PRINT 15.5 CHARACTERS PER INCH 
ON THE OKI HICR0LINE 82 
RETURN TO CALLER 

PRINT 18 CHARACTERS PER INCH 
ON THE OKI HICROUNE 82 
RETURN TO CALLER 

: PRINT 5 CHARACTERS PER INCH 
i OS THE OKI KICHOLINE 86 
I RETURN TO CSL.ER 

j SU 3 ER*0N-CS4 NARROW PRINT BUT 
5 RETURN TO SUPERHQN-C54 

5 SUPERfiOSi-CE4 MWl PRINT Ml 
i RETURN TO SUPERKW-C64 

3 SUPERM0N-C64 WIDE PRINT MF 
i RETURN TO SU?ER*0N-C5i 



LABEL FILE! ( * = EXTERNA. ) 



= *CIAI0RR 

dd23 = mmm 

CF'22 = WIT 
CF25 = PRINT223 
CF4C ■ MONCLOSE 
CF5C = WIDE 
C?5A = HONHIDE 



DD61 = *CIflI0RB 
tm « *lf 

CF13 = PRINT 

CF3D = CLOSE 

CF50 = MflRRCU) 
CF52 



DDB2 = CIADDRA 
mn = *CR 
CF19 = PRINTB18 
CF48 = MMINIT 
CF5E = MQRHflL 

CF55 » mmwL 



2233,CFSE,CF5E 
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Aan de user poort van de Commodore-64 wordt een 24 polige edge connector 
aangesloten. De pennen zijn genummerd van 1 t/m 12 aan de bovenkant en A t/m N 
aan de onderkant (de letters G en I worden niet gebruikt, om verwarring met de 6 
en de 1 te voorkomen) . 

Aan de printer kant wordt een 36 polige Centronics 'male' connector aangesloten. 
De pennen zijn genummerd van 1 t/m 36. 

Commodore-64 Centronics 
user port connector 

+ — + h + 

! PEN A - GND !< >! PEN 16 = GND ! 

A + + + 

! PEN C = PBO ! >! PEN 2 = DATA 1 ! 

! PEN D = PB1 ! >! PEN 3 = DATA 2 ! 

+ + + + 

! PEN E ■ PB2 ! >! PEN 4 = DATA 3 ! 

! PEN F ■ PB3 ! >! PEN 5 = DATA 4 ! 

+ + h + 

! PEN H = PB4 ! >! PEN 6 = DATA 5 ! 

H + H + 

! PEN J = PB5 ! >! PEN 7 = DATA 6 ! 

I PEN K = PB6 ! >! PEN 8 = DATA 7 ! 

+_ + + + 

! PEN L = PB7 !< ! PENH = BUSY ! 

+ + + + 

! PEN M - PA2 ! >! PEN 1 - STROBE ! 

Maak de kabel niet te lang, hooguit twee meter. Mocht de kabel toch langer 
moeten, gebruik dan twisted pairs. 

CFOO Init subroutine 

CF19 Print subroutine 

CF3D Close subroutine 

CF48 Init routine Supermon-C64 

CF4C Close routine Supermon-C64 

CF50 Subroutine set print mode narrow 16.5 characters per inch 
CF56 Subroutine set print mode normal 10 characters per inch 
CF5C Subroutine set print mode wide 5 characters per inch 
CF62 Set print mode narrow 16.5 characters per inch for Supermon-C64 
CF66 Set print mode normal 10 characters per inch for Supermon-C64 
CF6A Set print mode wide 5 characters per inch for Supermon-C64 
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NOGHflflLS: DE BftSIC-COMPRESSOR 



Rond mi* Programs BflSIC COMPRESSOR uit 
1. Haar dient het dins voor ? 



25 zijn een paar vrasen gerezen: 



ftntnoord: Om fatsoenlijke BftSIC program's te kunnen schrijven diei behalve dat ze werkeni ook nog 
door anderen te lezen en te begrijpen zijn. Dus inpiaats van een spaghetti sliert als b.v. 

108 FQRft=QTQi8a:PRIIfffl;:PRINTfl*fl;:PRINTSQR(ft):NEXT 



Schrijven we voortaan: 

188 FOR ft=8 TO 108 
118 : PRINT ft; 
128 : PRINT fl*A5 
138 : PRINT SQR(fl) 
m NEXT 
158 END 



:REM VOOR DE GETflLLEN VftN 0 TOT 188 

:REH PRINT GETflL 

:REM PRINT HET HUfllRflflT 

:REN PRINT DE WORTEL EN Gfl NflflR EEN N1EUWE REBEL 
:REM VOLOEND GETflL 
tfSii E1N0E 



De vele spaties en ren-statements zijn een MUST ! ft l l een zo is een prcraramaa voor iedereen verstaanbaar. 
We praten dus helemaal niet «eer over seheugenruimte en executieti jd. Daar zorgt straks. na het afdruk- 
ken van de listing de BflSIC COMPRESSOR Mel voor. Overisens: Ook resels vol met cursor besturinsskarak- 
ters zoals de neeste COMMODORE eigenaars zo heerliJk weten te produceren zijn uit den boze. Gebruik voor 
cursor right Never TAB, Cursor 5 stappen term ? Gebruik dan niet een soort statement als: 

250 PRINT -IIIII-5 



Maar gebruik: 

258 LE*=CHR*(157) 
260 FOR LE=1 TO 5 
270 : PRINT LE*' 
280 NEXT 



REM CURSOR MM LINKS 
REM VOOR 5 STRPPEN TERUG 
REM STUUR CURSOR NflflR LINKS 
REM VOLGENDE STftP 



2. Het programs werkt niet op JUNIOR en KIM 

ftntwoord: Neei aaar daar doen tie nu iets aan. Per abuis staat by de versie voor SYM-BftSIC. aansepast 

voor de junior dat deze versie ook op KIM en JUNIOR zou werken. Pas de volsende adressen 
aan op onderstaande regelnuimaers: 



REGNR/LflBEL 


KIM BftSIC VI. 8 


JUNIOR KB9 


VIC-28 


COMMODORE 64 


1220 STRT 


$78 


*7B 


I2B 


$2B 


1238 ENDP 


$7fl 


$7D 


$2D 


$2D 


1248 ENDP1 


$7fl 


J7D 


$2D 


$2D 


1250 BflSIC 


$2348 


$227B 


$C474 


*ft474 



Zoals de VIC en COMMODORE E4 bezitters zien, werkt het Programs ook op hun systeem. Voor de COMMODORE 
is echter nog een aanpassins noodzakel i jk: De fabrikant is er in gesiaagd zeropage voor I/O te sebrui- 
ken.zodat alle zeropage adressen net 3 soeten worden verhoogd.De statement "token's" zijn voor beide 
saatste machines gel 'uk aan die voor PET en CBM. 



Ruud UPhoff 
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USR ROUTINES 



In Hicrosoft BASIC is het wogei i ik zelf nieuwe functies te schri jven in niachinetaal en deze door het 
initial iseren van een vector, de USR-vector. aan de basic interpreter te hangen. Vanaf dat tsottent is zo'n 
functie dan tot onze beschikking. In de imp van de tiid heb ik heel Mat van deze routines geschreven die 
U isoseliik ook Mel Milt 9ebruiken. Alie routines ziin geassewbieerd op de APPLE tiaar de adressen voor een 
aantal bekende basic interpreters kan ik U er steeds ttij seven. Dat is dan aoseliik voor: 

KIM BASIC VI. 8 / JUNIOR KB9 / VIC-20 /COMMQDORE-64 / PET / CBM-3832 

Laat ik beginnen met te naarschuMen voor de KIM BfiSIC oadat die seen USR-vector bezit, maar waarbij het 
adres van de USR routine in de tabel van functie- adressen *oet worden veranderd. Verder m<3 ik er vanuit 
saan dat desene die zei-f Patches in z'un BASIC heeft aangebracht. ook Met in staat zai ziin daar bij het 
aanpassen van de routines rekening see te houden. Deze keer Nil ik beainnen net een routine die U in 
staat stelt op een INPUT-statesent response te seven door het intypen van een expressiei iets Mat noriual 
niet morel iik is. Voor de KIM tsoeten de regels 0370 en 0383 revuld Morden «et 5 NOP instructies ! 

De syntax. 



Na het schryven van de routine, Mordt de functie als vont gebruikts 



180 LET INIT=8838 

110 INPUT "EXPRESSIE ";X$ 

128 IF LEN(tt)>79 THEN 110 

138 CALL INIT 

148 X=USR(X») 

158 PRINT X 

168 END 



:REM HET DOOR U GEASSEMBLEERDE STARTADRES 
:REM INPUT EXPRESSIE 

:REM TEST OP MAX 79 KAHAKTERSiNIET N001G VOOR APPLE 
:REM SYS INIT VOOR COMMODORE 
:REM EVALUEER EXPRESSIE VAN to 
:REH PRINT RESULTAAT 



Op scwtise systetnen zai de initial iserings routine soeten verval tart oadat het cotmando "CALL" of "SVS" 
niet bestaat. U kunt echter ook dit coaaando in um BfiSIC versie aanbrensen.want het is onmisbaar. Zonder 
CALL scat U ook af zien van ee« selectie op al of niet retds gecodeerd zijn van de string, lex in dat 
geval vyf NOP's op de regels 540 en 558. De routine wordt dan wel traas.als de string aeerdere Mien 

moet worden geval ueerd ! 

On CALL in de basic interpreter te bren9en kunt U het vrNnel nutteloze cotwtndo NUU. verwijderen. tenzii 
U nos let een "teletype" Merkt. Brens de navoigende wiiziginren aan: (opcode notatie) 



KIM 


JUNIOR 






$20E7: 43 41 


*20C7: 


43 41 


Vtrvang NU door OR in de tabel 


*272S: EA 


J266E: 


EA 


vervans NULL routine door CALL 


*272C: EA 


$266F: 


EA 




$272D: EA 


$2678: 


EA 




♦272E: EA 


$2671: 


EA 




9272F: EA 


$2672: 


EA 




$2738: 28 34 2C 


$2573: 


28 71 2B 


CALL: Haal adres in FLP-accu 


*2733: 28 EF 35 


$2676: 


28 38 35 


Converteer naar adres in vector 


$2736: 6C 19 88 




6C 1C80 


Spring er naartoe 



sebruik 



hier afsezien, owriat dat erg veel piaatsruiwte in de 
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_____ 



6502-KENNE!? zou innemen. Pas de adressen van de onderstaande labels. Per systeem als volst aan: 



LABEL 


PET 


CBM 


VIC 


C-64 


KIM 


JUN 


===== 


=== 


= 


= 


=== 


~— — 


gas 


TXTPL 


80C9 


0077 


007A 


007A 


80C7 


00CA 


TXTPH 


00Ch 


0078 


007B 


007B 


00CS 


08CB 


FLPAC 


8080 


USE 


0061 


0051 






TMOTll 

innJL 


8071 


001F 


0022 


0022 


806F 


3072 


USRVJ 


0000 


MM 

vvvv 




0310 






USRVL 


8001 


0001 


0001 


0311 


2040 




USRVH 


0002 


0002 


000-2 


0312 


2041 


000C 


CHARGE! 


08C2 


0078 


0073 


0073 


80C8 


08C3 


DLGCSTR 


D57B 


D57D 


D6A3 


B6A3 


349fi 


33E3 


ENCODE 


C48D 


C495 


C579 


A579 


2466 


23C9 


EVALEX 


CCB8 


CC9F 


CDSE 


AD9E 


2C48 


2B85 


NGNDIR 


D28B 


D280 


D3A6 


B3AS 


31A8 


38EA 



800fi 0 2 *_00 0200 00 \ & 00 - 1 



Net voert hier te ver om te saan vertellen wat eike routine nu precies doet, aaar in de zeer nabiie toe- 
komst is er een lijst beschikbaar met bruikbare routines, wat ze doen en hoe ze moeten worden aanseroe- 
pen. Meer nieuws in een van de volgende nuwaers. 

Tenslotte een practische toepassing van de USR-routine, Stel dat we een BASIC prosramma willen schrwven 
dat van een ingevoerde reeks getallen een zekere functie y=f(k) afdrukt. Het invoeren van besinwaarde. 
eindwaarde en stap is seen probleem. we I de functie zelf. we kunnen deze vastlessen in een DEF statement 
Maar dan Moeten we voor elke nieuwe functie dat DEF statement in het programma veranderen. Het biisaande 
BASIC programma laat U nog iets zien: Gestructureerd prog rammer en is in basic niet onmogeliJk. De afdruk 
werd semaakt met een speciale "list" routine voor de APPLE.dat in een gestructureerd programma de struc- 
turen herkent. Helaas kan ik, voorlopig alleen APPLE bezitters een copie op disk aanbieden (dos 3.3 of 
3.2) Stuur «'u een bianco diskette met retour Porto en heb een weekie of twee geduid. 

Ruud UPhoff 



Uitnodising KIM-Club Bweenkoast. 



Datuffi : zaterdag 17 September 1383 
Lokatie s Chr. Atheneum "Adriaen Pauw° 
Ir. Leiylaan 18, 

Re is route «' 



Tel.: 023 - 281702 



- per auto: snelweg Den Haag - A' daw of A' dan - Den Haag: 
afslas HOOFDDDRP. 

Richtins (Hoofddorp) HEEMSTEDE. 

Ma de brug over de ringvaart Haarlemmermeer 
(stoplicht) rechtdoor. 

Volgende stoplicht OMKEREN en terug OVER DE 
PARALLELWEG 

Aan het einde van deze weg: 
CHR. ATHENEUM "ADRIAEN PAW". 

*** NEEM EEN CLUBGENQQT OF KENNIS HEE *** 
*** BRENG 00K UW APPARATUUR MEE *** 

Toegang : incl. koffie. lunch en frisdrankie : Fl. 25.== 



Programma KIM Club BiJeenkomst Heeastede 

89.30 Onvangst met koffie 

10.00 Opening door de voorzitter 

18.15 Bob van de Oudewetering demonstreert 
supersnelle Floppy Disk Operating 
Systea 



11.15 Koffiepauze 

11.45 Voortzetting d 
koppeiing aan 

12.15 Lunch 



FDOS (mogelijk met 



13.30 Consuaentenvoorl ichting over floppy's 
door Rinus Vleesch Dubois (voorzitter) 

14.30 Markt 

14.45 Theepauze 

1515. Inforaeel gedeelte 

17.00 Sluiting 
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0010 .LS 
8028 

8038 ;* *************** * 

8048 ;* * 

0050 ;* UPHOFF'S USR ROUTINE LIBRARY * 

80E0 ;* * 







8078 


5* NR. 1 "INPUT AN EXPRESSION" * 






0088 


;* 


* 






8038 


;***************** 






8108 


■ 








8110 


;=== ASSEMBLE 


I FOR APPLE 11 === 






8128 


• 








8138 


MICROSOFT PAGE ZERO: 






8148 


* 

7 








8158 TXTPL 


.BE $00BS 


;LOU BYTE OF PTR INTO PROGRAM 






8168 TXTPH 


.DE $80B9 


5HIGH BY1E Of SAME 






8178 FLPAC 


.DE $009D 


?aP-ACCU (EXPONENT) 






8188 TMFOL 


.DE $005E 


JTEMPGRARY PTR CLOW) 






8138 USRVJ 


.DE $000A 


!JMP BEFORE USR VECTOR 






8208 USRVL 


.DE $008B 


5 LOW BYTE QF USR VECTOR 






8218 USRVH 


• DE $088C 


5HIGH BYTE OF SAME 






0228 


» 

1 








3238 
8248 


MICROSOFT SUBROUTINES 

• 






8258 CHARGET 


1 

.DE $0881 


;GET NEXT CHARACTER FROM STATEMENT 






0268 DLOCSTR 


.DE $E5F1) 


5DEAL0CATE TEMPORARY STRING 






8278 ENCODE 


.DE $D559 


? ENCODE KEYWORDS IN STATEMENT 






8280 EVALEX 


.DE $DD7B 


? EVALUATE EXPRESSION 






8230 NONDIR 


.DE $E3BS 


5 CHECK: NO DIRECT MODE 






0300 BUFFER 


.DE $0288 


? INPUT BUFFER 






8310 


; 








8328 


,BA $0380 








8330 


.OS 








0340 


■ 








2350 


5 INITIALIZE BY CALL 768 






8360 


; 




0300- 


A3 4C 


0370 INIT 


LDA #$4C 


;GET OPCODE 'JMP' (3 NOP'S FOR KIM) 


0302- 


8D 0A 88 


8388 


STA USRVJ 


!PJT BEFORE USR VECTOR (3 NOP'S FOR KIM) 


0305- 


A3 15 


8338 


LDA #L, iNPEXP 


;GET LG« BYTE FROM START ADDRESS 


0387- 


8D 0B 80 


8408 


STA USRVL 


iPUT INTO LOW BYTE FROM USR VECTOR 


238A- 


A3 83 


8410 


LDA #H, iNPEXP 


5 GET HIGH BYTE FROM START ADDRESS 


030C- 


8D 8C 00 


0428 


STA USRVH 


;PUT INTO HIGH BYTE FROM USR VECTOR 


038F- 


A3 80 


8430 


LDA #$88 


;gei ANY NEGATIVE VALUE 


0311- 


8D S7 03 


8448 


STA FLAG 


;SET FLAG 'FIRST ENTRY' 


8314- 


60 


3458 
8460 


RTS 

• 


'RETURN TO BASIC PROGRAM 






8470 


!USR ROUTINE "INPUT AN EXPRESSION" 






84S8 


i 




0315- 


20 06 E3 


8438 INPEXP 


JSR NQNDIR 


5CHECK FOR NGN DIRECT MODE 


0318- 


A5 BS 


3508 


LDA *TXTPL 


;SAVE TEXT POINTER 


031ft- 


48 


8510 


PHA 




831B- 


A5 B3 


8520 


LDA *TXTPH 




031D- 


48 


8538 


PHA 




831E- 


2C 67 03 


8548 


BIT FLAG 


? CHECK TYPE OF ENTRY 


8321- 


10 03 


8558 


BPL ENCODED 


;IF FIRST CALL 


0323- 


20 3S 03 


8568 


JSR ENCODER 


? ENCODE EXPRESSION IN BUFFER 


0326- 


28 5E 03 


8578 ENCODED 


JSR GETPTR 


; INITIALIZE TEXT POINTER 
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0323- 20 Bl 00 8580 
032C- 20 7B DD 8598 
032F- 68 
0330- 85 B9 

0332- 68 

0333- 85 88 
0335- 68 
8336- 68 
0337- 60 

0678 
0688 



8618 
8628 
0638 
8648 
8650 



PAGE 82 

JSR CHARGET 
JSR EVALEX 
PLfi 

STA *TXTPH 
PLA 

STA *TXTPL 
PLA 
PLA 
RTS 



;GET FIRST CHARACTER 
?EVALUATE EXPRESSION 
i RESTORE ORIGINAL TEXT POINTER 



; REMOVE OWN RETURN ADDRESS 

5AND RETURN WITHOUT CHECK ON STRING FLAG 



; ENCODE EXPRESSION IN BUFFER 



0338- 28 FD E5 


8708 ENCODER 


JSR DLOCSTR 


;GET PTR TO STRING, LENGTH IN A 


033B- 85 9D 


0718 


STA *FLPAC 


'.STORE LENGTH 


833D- A0 F 


87-20 


LDY #$FF 


".INITIALIZE INDEX 


033F- C8 


8730 COPY 


INY 


5WHILE MORE CHARACTERS 


8340- C4 9D 


8740 


CPY *FLPAC 


! DO: 


0342- B0 88 


8758 


BCS ENDSTR 




0344- Bl 5E 


8768 


LDA (TMPOD.Y 


; GET CHARACTER 


0346- 99 80 02 


8778 


STA BUFFER. Y 


5 COPY INTO BUFFER 


0349- 4C 3F 83 


8788 


JMP COPY 


JENDWHILE 


034C- A9 80 


8798 ENDSTR 


LDA #$08 


? PUT 'END OF LINE' 


834E- 99 80 02 


8888 


STA BUFFER, Y 


5 BEYOND STRING 


0351- 20 5E 03 


0818 


JSR GETPTR 


;GET POINTER TO BUFFER 


0354- 28 Bl 08 


0828 


JSR CHARGET 


5 READ FIRST CHARACTER 


0357- 20 59 D5 


8830 


JSR ENCODE 


5 ENCODE KEYWORDS IN STATEMENT 


035ft- 4E 67 03 


8840 


LSR FLAG 


iSET 'FIRST CALL DONE' 


835D- 60 


0858 


RTS 


; RETURN 




8860 


■ 

7 






0878 


?GET POINTER TO BUFFER 

• 


ta-jJC H3 rr 


8888 

0898 GETPTR 


LDA KL.BUFER-l 


?GET ADDRES IN Y/A 


8360- 30 81 


8988 


LDY #H, BUFFER-1 




0362- 85 B8 


8918 


STA *TXTPL 


5 STORE INTO TEXT POINTER 


0364- 84 B9 


0928 


STY *TXTPH 




0366- 60 


8938 


RTS 


?AND RETURN 




0948 


■ 






8958 


{INTERNAL VARIABLE 

a 


0357- 


8960 

0970 FLAG 


1 

.DS 1 


51 BYTE FOR ENTRY FLAG 




8988 


a 

1 





//0080.036S.036S 
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PRfiCTISCHE TQEPftSSING USR. 1 



:PAG£ 81 



18113 
18213 
1838 
1848 



1850 G03UB 1258 

1870 GOSUB 1318 

1888 H0I€ 

1098 PRINT " 

1180 END 



EINDE " 



:************* 
: * * 
: * DRUK Y=F(X) TABEL * 
: * * 
************* 

POKE USR ROUTINE 
EXECUTER H0GFDPRQGRAW1A 
HIS BEELDSCHERM 
HELD EINDE 
END. 



1110 
1128 
1138 
1140 
1150 
11GB 
1178 
1180 
1190 
1288 
1218 
1228 
1230 



DATA 169, 76, 141, 18, 8, 169, 21,141,11,8 

DATA 169, 3, 141, 12, 0, 169, 128, 141, 103, 3 

DATA 96, 32, 6, 227, 165, 184, 72, 165, 185, 72 

DATA 44, 183, 3, 16, 3, 32, 56, 3, 32, 34 

DATA 3, 32, 177, 8, 32, 123, 221, 104, 133, 185 

DATA 184, 1.33, 184, 184, 184, 96, 32, 253, 229, 133 

DATA 157, 160, 255, 288, 196, 157, 176, 8, 177, 94 

DATA 153,8,2,76,63,3,169,8,153,8 

DATA 2, 32, 94, 3, 32, 177, 8, 32, 89, 213 

DATA 78, 183, 3, 96, 169, 255, 160, 1, 133, 184 

DATA 132,185,96,8 
END 



*** USR-ROUTINE "INPUT EXPRESSIE" 
ZIE ASSEMBLER LISTING 



EINDE ROUTINE 



1248 

1258 FOR AD=768 TO 871 
1268 EAD BY 
1270 POKE AD, BY 

1288 NEXT 

1298 RETURN 



*** POKE USR-ROUTINE 

FOR- EERSTE TOT LAATS1E ADRES 
LEES VOLGEND BYTE 
POKE IN VOLGEND ADRES 

NEXT- ADRES 

END- 



1380 

1310 HOKE 

1328 FOR RU=8 TO 1 

1338 INPUT "BEGIN WAARDE ";F$ 

1340 INPUT "LAATSTE WAARDE ";L$ 

1350 INPUT "STAP ";S$ 

1360 INPUT "FUNCTIE Y=F(X). Y=";X$ 

1370 F=VAL<F») 

1380 L=VAL(L») 

1390 S=VAL(S$) 

1480 CALL 768 

1418 PR# 1 

1420 FOR X=F TO L STEP S 

1430 Y=USR(X*) 

1440 PRINT "X="X; TftB(28)5X$"="Y 

1450 NEXT 

1460 PR# 0 

1470 PRINT "DRUK ' RETURN' Or! TE STOPPEN" 

1488 PRINT "ANDERE TQETS: VERDER GAAN" 

1490 GET A* 

1588 RU=A*=CHR$C13) 

1518 NEXT 

1520 RETURN 



: *** PRINT Mm 

: HIS BEELDSCHERH, CURSOR LINKS BOVEN. 

: REPEAT- 

: VRAAG EERSTE HAARDE 
: VRAAG LAATSTE WAARDE 
: VRAAG STAP 

: VRAAG UIT TE PRINTEN FUNVTIE 

: CONVERTEER F 

: CONVER1EER L 

: CONVERTEER STAP 

: INITIALISER NIEUWE EXPRESSIE 

«' ZET PRINTER AAN 

! FOR- BEGIN- TOT EINDWAARDE 

: BEREKEN Y=FCX) 

: DRUK RESULTAAT Af 

: NEXT- WAARDE 

: PRINTER UIT 

: INSTRUEER GEBROIKER 

: INSTRUEER GEBRUIKER 

: WACHT QP TOETSDRUK 

: TEST ANTHOORD 

: UNTIL- RETURN GEDRUKT 

: END- 



LUOD'SJBMOyA^Op'MMM 



peFi 53 I I EE! 



KEMMER 



SUGGESTIES T.A.V. BASICDDE-PUBLIKATIE IN EDITIE 23. 



U. VfiM GODR, SOPHIASTRAAT 21, 2641 HL PIJNACKER. 

CASSETTE-HARDUARE VAN EE KIM KUN JE 
BAS1C0DE-N0RM VAN: 



1211(9 Hz => 
2480 Hz =) 



1 



ALS JE DE POTMETER VERDRftfilT, Kill JE HET SCHAKELPUNT 

VAN 3108 Hz IN BE KIN VERLEGGEN NAfiR V3M Hz. 

DE HI VAN DE KIM LflflT NAMELIJK EEN BETERE INLE21NB 

VfiN BANDEN TOE WW DE 0-CDMPARATOR WW SC/MP (erva- 

ringeri vari Exidy Sorcerer -aensen!). 

UITERAARD tlQET HET PROGRAMMA DfiN HERSCHREVEN WEN OP 

DE INPUT PIR VAN DE KIM CftSSETTE-RDUTINE, DUS EES N1EUU 

PR0Q& DAT GEBRUIK MAAKT VfiN DE ORIGINELE HARDWARE. 

JE KUHTDE POTMETER OOK MET EEN SCHAKELAAR UITVOEREN, 

DAN KEB JE THEE STANDEN: BASICODE/KIM. 



JE KUNT DE POTMETER AFREGELEN MET BEHULP VAN EEN TEST- 
BAND MAAROP 1908 Hz BTAAT. DIT MDET DAN NET EEN "1" 
] AAN DE PLL TESTUITGANG (X VRN EXPANSIE- 




1K1 



MIL JE GRAAG EN BASICPRDGRAMMA HEBBEN VAN JE VRIEND, 
MAAR KEB JE GEEK BAS1C0DE EN JE VRIEND EEN ANDER TYPE 
COMPUTER? GEEN NOOD! 

HAAK EN VERB1NDING VAN EN OUTPUT-POORT VAN DE 
VRI END-COMPUTER NAAR JE PIA UIE SCHEMA). JE VRI END- 
COMPUTER DIENT ALS AUTOMATISCH KEYBOARD!! 
UERKIffi? VRIENT^COMPUTER LAADT ZIJN BASICPROGRAMMA EN 

'LIST' HET BIT VIA 2IJN PRINTERDUTPUTROUTINE 

(BIJV. CENTR0N1BC). 



Basicode op band /papier 

Het prograana Basicode van 
Jaap van Toledo is aepubii- 
ceerd in editie 23. 
Het ii in flicro-Ade fomaat 
en in code beschiKbaar op de 
Junior-cassette nr. 2 we! he 
werd gepubliceerd in editie 
nr. 24. 

De I istins van het prosrafma 
is ooK verKrijgbaar op pa- 
pier. 

Junior-cassette nr. 2 F. 12,50 
Listing Basicode : F. 5,00 
Het betre-ffende bed rag over- 
schri-iven op postrekenins nr 
841433 t.n.v. W. 1 . van Pelt 
te Kriwen a.d. Ussel, met 
verwelding van hetaeen twrdt 
verlangd. 



VRIEND- . 
COMPUTER 

Canirori\« - 



MS.B 



STROBE 



-H>=- 



+sV 



susy 



KEYBOARD 



keyboard 
4trob« 



Ptfl 



T 



1 



> 5 ' 



CAa 
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;Van Nieu wen hove Koen 



• KDPPELING VAN JUNIOR ftftN S" FLOPPY ********** 



;Deze tekst beschrijft de koppelins van een S inch floppy 
?disk drive aan de Junior. De beschr i J v i ns bestaat uit twee 
5 9edeelten. Eerst is er de hardware. Deze bestaat uit een . 
^controller op basis van een FD1771. Deze controller werrf ge- 
; bouwd op eu rc.kaart*-f ormaat. Hij i aat toe in 8" single density 
5 (of 5" double density) te werken. Tevens is in de mose l i'jk- 
5 he i d voorzien om met twee drives te werken. De control I er- 
5kaart kan op de busprint van de Junior gestoken worden. Ze 
Sbevindt zich op de geheugen p I aat sen : $1 900-91304. Dit is 
"irtoseiijk door enkele wijziginsen aan de i nter f acekaart aan 
fie brengep. 

5 De software bestaat uit drie sedeeiten. Een eerste gedeelte 
"verzorgt het datat r ansport tussen computer en drive op het 
I ItMttf niveau: l ezen en schriJven van sector en en tracks* 
" even* i s het formatteren van de disks. De hierboven senoemde 
;hard- en software is srotendeels sebaseerd op een artikel 
? verschenen in BYTE van me i en Juni 1981. 

"Het tweede sedeel te van de software is een disk operating 
; system gebasejgrd op het boek 'A floppy disk operating sys- 
?te<v. for the 3080* van Kenneth B. Welles. Dit boek wordt u i t- 
? g eleven door E-iyte Books. Het hierin beschreven operat ine 
; system heb ik vr i j omsezet naar 6S02. Het biedt zeer ruime 
" moge I i j kheden voor de gebruiker. Meer daarover verder. 
"Hex derde gedeelte is een programma met utilities ten be- 
; hoeve van het >operat ins system. De total e software neemt 
ionseveer 6K geheugen in besiag. Deze mag zich zowe! in 
! raw als in eprom bevinden. Tevens maakt deze software ge- 
i bru i k van de geheugen r u i mte van $200 tot *E00. Dit a l l es 
; biedt het voordeel dat bestaande soft als cassettebestu r i ns 
"en vooral assemblers basic en vroeger ontwikkeide programmas 
Sbruikbaar blijven. BiJ mij draait de assembler van (loser al 
»*»t het DOS. Ik ben bez i s patches te ma ken voor de Basic. 
Hf> het vooruitzicht is ook nog Forth en Pascal. 
5 ' 
? HARDWARE. 



? De voiledise hardware omvat een twintigtal T'TL-ie, een 
5FD1771 en een 6821. In biJlase vindt U een copy van een 
; art ike I uit byte dat een beschr i j vi ng geeft van het grootste 
"gedeelte van de werking. In bii.l a?e vindt U tevens een 
5 schema van de hardware zoals die biJ mij werkt. Er ziJn 
j seen essent i e I e verschi I I en. Er z i j n we l enke l e d i ngen 
;aan toe sevoesd. Dit zowei naar de computer toe * in de 
worm van een volledise buffering van ad res- en datai i jnen. 
30ok aiie controjel i Jnen ziJn gebufferd. Verder is een adre's- 
; decoder ing aan.wez i g en enige poorten om de read/write liJn 
;te sturen. Aan de kant van de floppy is een en ander toese- 
'Voefld om aan ^e specifieke eisen van deze floppy tesemoet te 
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; Ko (Tien . Ook is een s i mpe I e voorzieniris semaakt om een rustiser 
Jgedrag te kijgen van de ieeskop van de floppy. Ten i aatste 
Windt L) nog wat extra electronica om met twee drives te kunnen 
;werken. Dit is een zeer summiere beschr i J v i ng. Het is dan 
?ook niet bedoeld voor nabouw. 

m 

; SOFTWARE. 

; Voor het eerste gedeelte van de software verwiJs ik terus 
;naar een biJlage. De werking van de basis-software is u i t- 
Jvoerig beschreven in dat art ike I. Ik heb gebruik gemaakt 
Wan de voigende configuratie van de floppy : 77 tracks, 2E 
;sectoren per track en 128 bytes per sector. IBM-compat i be l 
" dus. 

;Het tweede gedeelte van de software omvat het DOS zelf. 

;Het is ongeveer 4K lang. De werking van het DOS is sebaseerd 

nop het gebruik van een bitmap. Dat wi 1 zesgen dat men het 

; ru imte op de schijf gaat voorstellen door een verzamelins 

Wan bits. Elke bit komt over een met een sector. Dit l aat toe 

;op eenvoudige wiJze orde te houden in de ruimte die beschik- 

•; baar is. Deze bitmap is hier ongeveer 250 bytes lang. Het 

; tweede element in de organ i sat ie van het DOS is de directory. 

;Ditmap en directory nemen track 0 van de schiJf in beslag. 

% De directory biedt ruimte aan i94 entries . Elke entry bestaat 

Suit 16 bytes. G bytes voor de naam van de file. 2 bytes die 

;de eerste track en sector aanseven. 2 bytes die het aantal 

;sectoren aanaeeft waaruit de file bestaatt 2 bytes die de 

! datum aangeven waarop de f i le ingevoerd is en enkele vriJe 

5 bytes voor verdere u i t bre i d i ngen. 

?Een ander element waarmee voortdurend in het DOS gewerkt 

"wordt is het blok. Een blok komt overeen met een sector 

JSP de schiJf. Een blok is dus 123 bytes lang. Elk blok 

1 bestaat uit de voigende eiementen 

; byte 0 - 5 ' een f i lenaam van E tekens 

; byte £ . . 7 : de reverse link, dit is een pointer be- 

; staande uit een track- en een sector- 

; nummer. Deze pointer wiJst naar de voor- 

afgaar.de blok. Voor soed begrip: in de 
; directory vindt men track en sector van 

; de eerste blok van een file. In die eerste 

3 blok vindt men dan een pointer naar de 

; voriae blok (die is er in dit seva I n i et 

; en wordt dan arbitral r geMJk aan nu I se- 

5 steld) en een Pointer naar de voigende 

; blok. In de I aatste blok i s de forward 

; pointer ge I i J k aan nul. Dit biedt de mose- 

; lijkheid zowei vooruit ais achteruit door 

; een file te stappen. 

; byte S . . 9 : forward I i nk 
; byte 10 : onsebruikt 

; byte il : teller die het aantal nuttige bytes aan- 

; geeft in een blok dat slechts sedeeiteMJk 

; met data gevu I d is. 
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; byte 12 .. 13 : blOkteller» seeft aan het hoevee I ste 
5 b I ok i n een file dit is. 

5 byte 14 .. 127 data 

;Hiermee ziJn de voornaamste element en aansestiPt. 

;Wat nu de bevelenset bet reft van dit basisdos, die is erg 

;bePerht. Dat is met opzet zo sedaan. Rile sansbare beve I en 

;zi,;n sawengevat onder meer handelbare vorm in de utilities. 

;Die had ik dee! drie senoemd van de software. 

5 beve I en set : 

? 1) save :save zet een file onder een filenaam op schijf. 
; Er ziJn twee mose I i j kheden in dit bevel, lien 

kan een file saven met de bedoel ins dat men ze 
I za l laden en direct runnen (een voorbeeld hier: 

; dat kan BASIC ziJn). In dat seval l aad men die 

5 fi le en wordt ze na laden direct sestart op een 

5 vooraf opseseven ad res. 

? vb. save basic !0 

I ^limits 2000, 4aff (de computer prompts met *) 

; *«0 40E5 

; De file is nu van $2000 tot $4aff se laden op de disk 

t in drive 0 onder de naam basic. Indien de file nu 

5 se laden wordt door 'run basic :0' dan zai na laden 

" basic starten op $40E5 

! Een tweede moseliJkheid is een file- sewoon bewaren. 

" B i j voor bee l d een dataf i i e. 

5 vb. save basic :0 

3 * I i mi ts 2000, 4a f f 

5 +q U i t 

; Dos herkent slechts de eerste letter van een bevel. 

,2) run : I aad een file en start eventueel (z ie boven). 
; vb. run bas i c of 

; run basic:0 (default drive nummer is 0) 

;3) limits : seeft de srenzen aan van de te saven file. 

vb. limits 1000,2000 
;4)so : seeft het startadres aan voor runnen na laden. 
; vb. so 2000 

; 5) quit : seeft aan dat na laden van een file naar het dos 

; moet ter ussekeerd worden. 

;E) delete : vaast een file uit de directory. 

; vb. delete- basic 

; 7) rename : seeft een nieuwe naam aan een file. 



; vb. rename bas basic 

; Een e i senaard i she i d is dat men eerst de nieuwe naam 

; moet opseven en dan de oude. Ook mas men n i et renamen 

; van een schiJf naar een andere. 

? 8) Jump :voert een sprons uit naar een hexadecimaal opse- 

; seven ad res. 

; vb. Jump 2000 
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; 9) format : d i t bevel formatteert een schijf in drive 0. Het 
5 meet met de nod i se voorz i cht i 9hei d sehanteerd worden. 

Formatteren houdt in dat alies van de schijf overschreven 
? wordt. Er is als optie voorz i en dat Kan nagegaar. worden 

; of de f o matter i ng goed veriopen is. 

5 vb. format 

m&zo dat waren de enkeie bevel en van het basisdos. 
;Het heeft echter nog veel meer in petto. De structuur van 
Jhet prosramma laat o. a. toe dyr.amisch geheugen toe te 
Jkenr.en aan een file. Ik sal hierna nog enkeie van de sub- 
routines die aanwezig z.Jn en enkeie van hun moge l i j kheden 
; opsommen . 

?Daar ik n i et direct weet waar te beginnen za I ik een aantal 
Sdingen die ik bij het doorb I aderen van de documentat i e tegen 
Ikoffl na elkaar opsommen en wat uitleggen. 

JDe mogeliJke te gebruiken filenamen moeten bestaan uit 1 tot 
;G asc i i tekens met een waarde groter dan $20. Het mogen dus 
look alien cijfers ziJr. of iets dergelijks. De filenamen kunnen 
Ju.tgebreid worden met een exter.sie die aanduid op we Ike drive 
;de file staat of moet komen. vb. assemb:0 

"Be commandostr i ngs die men opseeft gaan eerst een buffer in 
? waar in ze nog en i ge editing kunnen ondergaan alvorens uitge- 
?voerd te worden. Een manier van werken or.geveer ana loos aan 
5 wat we bij basic of de assembler kennen. 

;De commandos worden door een routine TEXTIN in een buffer 
5 ae laden en men Kan dan met behu I p van een andere routine 

S.#r te i kens de volgende ietter ui thai en. 

Mnteressant© routines zum FDREAD en FDWRITE die toe later, 
■.van respect i evel t j k een karakter te schrijven naar of te 
» lezen van disk. Men kan dus zonder vooraf iets te weten ov^r 
5d© lenste van de file steeds een byte meer wegschr i j ven. 
$Bi j voor bee i d wegschr i j ven van een file saat als voigts 
imsm c-Pent de file voor output. Dat wi I zeggen dat men eerst 
ikontroieert of de naam die men er wil aan geven nog n i et 
;bestaat en dan een buffer met die file associeert. Er gebeurt 
?opk nog wat hu ishoude I i j ke administrat »e. Van geen beiang 
!nu. Eens de file geopend kan men naar hartelust bytes wes- 
; schrijven d.m. v. de routine BYTOT. Men moet zich van wat er 
5 intern gebeurt niets aantrekken. Oordeelt men dat a I l es er 
t\n staat dan sluit men de file d.m. v. CLSOT er. klaar is kees. 
?0p een ana lose eenvoudige manier kan men files lezen. 
;lndier. men bi J voor bee l d voor een two-pass assembler een file 
;twee keer moet lezen opent men de file voor input en leestt. 
",De tweede keer lezen eist a ll een het opr. i euw opener, voor input 
5 en (iien kan van vooraf aan beginner.. 

;Er bestaat ook de mogeiijkheid van random iniezer. en u i 1 1 ez*n 
Wan sectors via BLKIN en BLKOT. Bijvoorbeeld het lezen van 
5 een willekeurige sector vereist het j u i st zetten van de para- 
meters voor die sector, dan BLKIN aan te roepen. Dan kan men 
5 opr. i euw met BYT IN steeds de volgende byte uit dat blok ha l en. 
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;Er ziJn nog meer door de sebruiker aanroepbare rout i nesi ntaar 
5ik 9a het hier biJ houden. Een I aatste mogeliJkheid van dit 
;programma is toch nog het Vermel den waard: program chaining. 
"Daaronder wordt verstaan dat het mogelidk is versch i I l ende 
iPrograwitias aan mekaar te riJgen zo dat biJ het beeindisen 
Wan een pros r aroma automat isch een voigende ge laden wordt 
jen uitgevoerd. 

"Het derde deel van de software is een prosramma met utilities. 
>het is ongeveer 2K sroot. Het mag zich zowe I in ram als in 
ieprow bevinden. De command i interpreter herkent de bevel en aan 
3de eerste drie karakters. Dit programma biedt het voordeel 
•dat men meer duideliJke f outenbeve I en kriJst dan biJ het dos 
"zelf. Verderi en n i et het minst belansrijke7 zidn natuuri i Jk 
?de n i euwe bevel en die men er in aantreft. Ik zal ze system- 
s' at isch behandeien en bid elk een of meer voovbee l den seven 
idie een en ander moeten verdu i del iJ ken. 

Stl copy s copy I aat toe een dupi i caat te ma ken van een file 
"of een of meerdere f i I es samen te voegen tot een. Men Kan 
"copieren tussen vesch i I I ende drives. Ge l d i ge bevelen: 
" copy Jansi from jan:0 
; copy Jan from Piet 

" copy tuursl from p i et :(3i k I aas -. j ef : 1 
; copy tuur:0 from tuur: 1 

"2> delete % delete vaast een file uit. Geidige bevelen: 

5 delete Jan 

; de I j an : 0 

' de I n i ksn ill J an 

; delete Jan » Piet :07 tuur: i» peer , k i aas 

»3) directory : drukt de directory af van de aanseduide 
»schijf. Er is ook de mose i i jkheid die directory op papier 
5*f te drukken. Een voorbeeld verdu i de l i j kt dit wat. Zie ook 
>in b i J I age. 

» directory (drukt direct, van drive (3 af) 

; d i r :0 

; dir:i:l of d i r : i s : (drukt de direct, van drive i af op scherm 
; en Printer) 

;4) exit : i nd i en geen parameter wordt opgeseven springt exit 
nnaar het dos terus. finders saat het naar het opgegeven ad res. 
; exit 

? exit 2003 (naar warme start assemb I ei\v. ) 

7 

5 5) free : drukt het aantal vride bloks af. Een lege schijf 

Sheeft 197E bloks beschikbaar. 

" free 

, free:l 

; free: 1 : I 

; free: I 
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5E) list : is een bevel dat een file kan listen onder drie 
Werschi I l ende opties. Default opt i e is F. Dit wil zegsen 
;dat' de file za I gelist wovden wet alle tabs seexpandeerd en 
;al le carriage returns en line feeds uitgevoerd. vb. voor teksten. 
;Een tweede moselidkheid is een asciidump te waken van de 
Sf i 1*8 ft. De derde wogelijkheid is een hexduwp:H. Beide laatste 
;mogel i Jkheden drukken de file af in blocks van 128 bytes. 
;Zie ook in de biJiagen. De printer opt i e is ook van tbe- 
! pass i ng. 
; i i st f i l e i 0 
; i i st : I : a f i I e ; 0 
5 I ist Sf f i l e i 0 
i i st : h bas i c 

u 

1 

S7) read ' I eest een programwa van cassette. Idem als Junior, 
r ead 1 2 

; 

;S) save : schrijft een programwa naar cassette. Idem ais 
; J u n i o r . 

; save 23, 2000, 2345 

; 

1 9) rename " geeft een nieuwe naam aan een file. Men mag alien 
; renawen op dezeifde schiJf. 
I rename j an to Pi et 
5 rename J an si to poi:1 

; rename J an to po I ' 1 is echter n i et geldig 

; 

5 10) run : run werkt op dezeifd manier als in het dos. 

u 

■i 

5115 trace ! trace is een zeer nuttig beve i als er iets 
3 in i sge l open is met een fi le op de- schiif. het drukt van 
J'de f i le die getraced wordt voor elke b!ok de naam af, de 
•reverse link, de hu i d i ge sector en track en de forward 
; i i nk. Dus zolans als een file kan getraced worden kan ze 
took gelezen worden. In geval de trace ergens midden in 
"een file misioopt, kunnen in ieder geval alle bloks tot 
;waar het misliep gerecupereerd worden door de links in de 
;iaatst bekende biok aan te Passen via het random-bevel. 
5 t race: 1 bas icH 
? t race demo 
5 tra demo:0 

n 

;12) store : werkt op dezeifde wiJze als het save-bevel uit 
'1 het dos. 

M 

5 15.) format I werkt op dezeifde wiJze als het formatbevel uit 
;het dos. 

1 14) random : l aat toe een wiilekeurige sector of track te 
;iezen en te schrijven. 

; random in a000 from 29 dit bevel I eest track 29 vanaf a000 
; in het geheugen 

5 random in a000 from 29,2. dit bevel I eest track 29, sector 2 
5 vanaf a000 in het geheugen. 
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Geachte leden, 

Dit zijn de jaarstukken voor 1982 van onze club. 

Een jaar waarin we ons eerste lustrum konden vieren. 

Dat kwam ondermeer in ons extra dikke lustrum nummer tot uiting 

en in een heel leuke bijeenkomst, met zeer veel bezoekers en 

apparatuur . 

Ook een jaar waarin we van 389 naar 436 leden gingen. Waarin de 
clubApple onder programmatuur van Ruud Uphoff de secretariaats 
administratie ging verzorgen. En waarin stappen zijn gezet om tot 
algemenere programma 1 s en apparatuur (zoals floppy disk) te komen. 

Ook de cassette bibliotheek wer-2 uitgebreid. 

Het lustrum in al zijn vormen kostue ons zoals voorzien ca. I ^uOO,- 

Uit de exploitatie rekening blijkt ook dat het gewone postverkeer 

ons bijna 50% meer kost dan de verzending van alle clubbladen. 

Om dit terug te dringen besloot de laatste ledenvergadering , dat de 

f 5,- porto voor nazending van de 6502-kenner, bij bv. te late 

betaling van contributie, voor rekening van de geadresseerde is. 

De bi jeenkomsten blijven goed bezocht, hebben een lager batig saldo 

dan vorig jaar, in het kader van het streven om niet meer te vragen 

dan nodig om de kosten te dragen. 

Het werk voor de cassette bibliotheek nam duidelijk toe, vandaar de 
vervanging van twee oude recorders . De Apple kwam in de eerste dagen 
van het jaar bij de club en de printer is uitgebreid met een 
transportmechanisme voor kettingf ormulieren . De stencilinbrand- 
machine is verkocht door Anton MUller. Boekwaarde 0, opbrengst f 500. 
De financiele situatie ziet er evenwichtig uit, groei is nog mogelijk 
als we artikelen en programma ' s blijven inzenden. 

Door een verandering in mijn standplaats moet ik nu al mijn taak neer- 
leggen. Gelukkig dat Mw. Riet Uphoff bereid blijkt om de opengevallen 
plaats in te nemen. 

Ik mag haar en de club succes in de komende tijd wensen. 




Herman Burgers 



Ml 
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B ALANS PER 31 DECEMBER 1982 



Aktiva 

31 dec 82 jaar 81 

Postgiro , 7569, — 10822,95 

Rentereken. 70,55 2091,97 

Reservefonds 5350,41 5000, — 

Bank 0 , — 0 , — 

Kas 123,45 35,14 

Transitoir 300, — 300, — 

Inventaris 6318,-- 3563,25 



f 19731 ,41 21813,31 



Passiva 



31 dec 82 



Transitoir 10083,15 
Kapitaalrek 9684,26 



f 19731 ,41 



jaar 81 

12463,23 
9350,08 



21813,31 



EXPLOITATIEREKENING OVER 1982 

Lasten 



Kontributies '82 
van 4 36 leden 
Oude 6502 kenners 
Bijeenkomsten netto 
Cassettes netto 
Rente 

Verkoop inventaris 



Nadelig saldo '82 

subtotaal 
Kontributie '83 
van 225 leden 



17394,88 

560,— 
807,50 
256,50 
898,49 
500,— 



2013,24 
f 22430,61 
10083,15 
f 32513,76 



Drukkosten 6502 kenner 

Verzendkosten „ „ 

Portokosten 

Materiaal 

Telef oonkosten 

Autokosten 

Bestuurskosten 

Drukwerk en kopien 

Diversen 

Af schri jving 



Transitoire kontr. 



15152,17 
1006 ,47 
1615,05 
619,88 
533,66 
657,— 
322,50 
585,63 
104, — 
1814,25 

22430,61 

10083,15 

32513,76 
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Korte toelichting op de balans. 



Aktiva: 



Transitoir : 



f 300,— 



Een vordering in verband met een voorschot 
voor porto kosten. 
Inventaris ; 

Boekwaarde Afschrijving Boekwaarde 



31 dec 81 
Elektr. schrijf 1224,25 
machine 

Printer Oki n80 590,— 
Tractorf eed 

Apple II Euro+ * 4000, — 
KIM computer 1000, — 

Junior computer 399, — 
Flipover 250, — 

Inbrandmachine 100, — 

Recorder 
Recorder 

====================================== 

Tftaal 7583,25 1814,25 



304,25 

150,— 

800,— 
300,— 
1 00 , — 
60,— 
100,— 



31 dec 82 

920,— 

440,— 
175,— 
3200,— 



299, — 
190,— 
0,— 
197,— 
197,— 

:=============: 

6318,— 



* Apple is in '81besteld, afgerekend op 6 jan 82 
Dus bijna 12 maanden in bedrijf. 



Passiva: 



Transitoir: 

Reeds voor '83 betaalde contributies 



f 10083,15 
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1734 RX DEN HELDER 
ftMUSEMENTSPRDGRftMMfi HOWCAN 



;Met d i t programma kunt U de JUNIOR vragen stel len, 

; we ike dan worden beantwoord met JA of NEE. 

;De vragen dienen we! in vrasende voriii gesteid te 

■ worden en iiioeten wo rden afaesi ote-n met een ? . 

; Een voorwaarde is er we i » de bed iener itioet de 

?vraas intypen en het antwoord weten, daar voor 

; het intvpen van de vraag eerst een "CRLr" of 

' "LFCR" geseven dient te worden. Dit bepaait name- 

; i i jk het antwoord. 

5 "CRLF " seeft Jft 

5 "LFCR" geeft NEE 



02E£ 



ORG 



$0200 



E8 11 
RE 12 
34 13 



* 



FLAG 

RECCHA * 
PRCHA * 



50000 
$11 ES 
*12ftE 
$1334 



S2BIZI 

r»-~-ir*'~i 

;rhr\ 

LldJO 

rft -| r?i r\ 



a: 



20C 



0211 
02i& 



r*--i •* r* 
(•*■-■ ■» r- 



A3 
20 
20 

(—■ q 

D0 



4C 
C3 

Dr* 
VJ 

F0 

nn 

D0 
A5 



0!iLiE 
01i3 1 
0233 
023E 

023B 
023D 



D0 

A3 

fi3 
20 
A3 
40 
A3 
20 

4C 



0C 

34 13 
AE 12 

rhr\ 
VJLJ 

Br\ 
O 

Brr, 
It) 

1A 02 

M 
rr, -. 

F2 

-TV" 

F0 

E3 11 

00 

0A 

0F 

/. r- 

T /. 

04 
/. cr 

34 

/. cr 
UJ 

02 02 
4A 

34 13 
41 

02 02 



13 
13 



START 
STRT 



biuri. 
KAR 

LFDND 
VROND 



JA 



J3AIM 



STA 
JSR 
JMP 

i-^M HTM 

BNE 
BED 
CMP IN 
BNE 
Jem 

LDA 
CMPIM 
BNL 
LDAIM 

LDAIM 

Jnn 
an 

LDAIM 

JMP 

LDAIM 

JSR 

LDAIM 

JMP 



$0C 

PRCHA 

RECCHA 

S0D 

LFDND 

FLAG 

RECCriA 

VROND 

S0A 

VROND 

STOFL 



ffc-rr" 
r\i-m 



FLAG 

$0A 

JA 

PRCHA 

*45 

PRCHA 

445 

STRT 

*4A 

PRCHA 

$41 

STRT 



Clear d i sp I ay- 
get char, frow TTY 
• - ■ -t- - rs '"> 

iiOi check on LF 

yes, store it on FLAG 

get char, from TTY 

is it a LF ? 

no, check on "?" 

yes, store it on FLAG 

is it a ,, ? n 

no, set new char. 

yes, print J A or NEE 

check FLAG on LF 

no, pr i nt J A 
yes, print NEE 



M4 
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S random out a000 to 29 



dft bevel schrijft 2E sectoren vanaf 
a000 Cdus 26x128 opeen vo ! gende bytes) 
In track 29 



? random out a000 to 29,2 dit bevel schrijft 128 bytes vanaf 
5 a000 naar track 29, sector 2 

■ 

;Dat was het dan. Aiie react i es graag aan m in ad res of aan 

?de redact ie 

? Van Nieuwenhove Keen 

; Consc i encestraat 50 bus 4 

; b-3000 Leuven 

; Be 1 9 i e 



5 Aanvu I i i n< 



1) return ! return is een n i euw bevel toegevoegd aan de uti- 
lities. De bedoelins hiervan zal duideliJk wo r den in de be- 
schriJvins van de aanpassing van de assembler van C.Moser aan 
het dos. 

2) Ran passing van de assembler van C.Moser aan het dos. 

In de assembler z i J n drie bevel en aanwezig die voorzien zion 
voor het werken met een diskdrive! ENTER, LOOKUP en DC. 
ENTER laat toe een file in de directory in te brensen. Ik 
zal een voor bee id geven van het sebruik; 

men opent de file demp- voor output 



ENTER demo 
PU F25 2000 



demo voor 

:100 dit schrijft in fi l e jdemo a I I es wat in 



textfiie zit tussen regei 2000 en 2100. 
Men geeft een nummer aan dit blok omdat 
het mogeliJk is meerdere bloks in een file 
te he b ben. 

PU F34 2000 2400 Dit schrijft bv. een tweede blok in de file 

demo. 

Dit sfUit de file voor output, 
een file te lezen van de disk. Weer een voor- 



laat toe 



ENTER 
LOOKUP 
bee I d "» 

LOOKUP demo 

GET F34 

LOOKUP 



Dit opent de file demo voor input. 
Dit l eest blok 34 uit demo. 
Dit sluit de file demo voor input. 
Een laatste commando in de assembler is DC (disk command). 
DC laat toe alie commandos van de utilities van in de assembier 
aan te spreken. Een voorbeeld: 
DC Dit bevel doet cms overgaan naar de utilities 

***** E502 PIP VERSION 1.1 

* D i t i 5 de react ie van de computer. We kunnen 

5 nu a l l e ut i I i t i es gebruiken. 

; RETURN Zo Keren we terug naar de assembler. 

; 

// 
> 
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" Plan Pass i ng van Basic Vi.i voor Junior aan Fdos 1.1 
5 Van N i eu wen hove Koen 23- 1 - 1 983 

?0m de Basic samen met het dos te kunnen gebruiken heb ik er 
Seen aantal functies aan toesevoegd. Dit had tot gevoig dat 
;de Basic nu de geheugen ru i mte van $2000 tot *4f00 in beslag 
?neemt, evenals de zero-page. Het geheugen van $200 tot *7ff 
;wordt nu gebruikt door het dos. 

*0w a I de hierna voigende functies te kunnen toevoegen en het 
■jprobieem toch'niet al te komPle.x te laten worden heb ik be- 
"sloten het LET-bevel uit basic te el i mi neren. Dit bevel heeft 
rtoch geen onvervangbar e Plaats in de Basic. De routines die 
5 LET uitvoeren b I i J ven natuuriijk bestaan maar de naam verdwijnt 
'uit de bevel onset. 

5 Al le beveien behalve DOS APP, DOB LPR en DOS SPR z i J n sew* I 
5 vanuit direct ais vanuit program mode uitvoerbaar. 
5 De hierna voigende bevel en werden toegevoesd: 

" i ') DOS APP <f i i enaam) : dit bevel voert het reeds bekende APPEND 
"uit. Het voert t evens een automat ische he mummer i ng uit van 
"het total e programma. 
5 vb. DOS APP test:l 

;2>D0S LPR <fiienaam> : dit bevel laadt het Programma met naam 
" <fi!enaam> van disk in het geheugen. 
5 vb. DOS LPR demo:0 

? 3) DOS SPR <filenaam> : dit bevel bewaart het aanwer i ge Pro- 
; gramma onder de naam <fiienaam> op disk. 
" vb. DOS SPR test:0 

?4)DQS LDA <var> , . . . : dit bevel laadt var i abet en van disk in 
; het geheugen. 

5 vb. DOS LDA A$« B. c i c$( I ) , e, a ( I , j ) 

;5>D0S SDA (var),,., : dit bevel bewaart de waarden van de 

ssenoemde variabelen op disk. 

5 vb. DOS SDA a, b, c, s(23, 48) , a*t c*<8) 

;S)D0S 000 <f t lenaam) : dit bevel ©pent de file <fiienaam> 

Jvoor input. 

5 vb. DOS 000 TESTS: 1 

;"OD0S DOT <fi lenaam) : dit bevel opent de file <fi lenaam) 

;voor output. 

1 vb. DOS DOT TESTS: 1 

■■8'.) DOS CLOSE : si uit de op dat moment geopende file voor output. 
; vb. : DOS CLOSE 

;S)D0S PIP : l aat toe van a l de utilities van PIP gebruik te 
; ma ken vanuit BASIC. Men keert terug naar BASIC door RETURN. 
5 vb. DOS PIP 



3 

3 
s 

/•/■ 

> 
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terug in Basic 
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6^p. 

JUNIOR 



9 



IO 







i 




II 






1)1 







iT 

ft 



[T]( 



IS 



ft * & 

I It 












t 


20 



18 



floppy 





: }mLS^3 




; 1<HLS2^ 1 






? 




0 


•■ FOq>i 


g,<g 


}ql5oS 


10,12,20 


•"?H L^of 


18 






: -?q LSig3 




:^L,Li 113 


21 


: }1hLSoo 


1 1 





Jio 

I 



ret 



roe 

it 



.log 



it., 

it 



— o^V 

loo nF 

Oix) 

°o\J 



reje 

it 



7 

IClS 



^3 

it 



K2o _Litq J_icis J_itii J_ 1C21 J_rci2 J_xci3 __ 



T 

1621 

it 



7 
rciz 

il 



XC(3 



it. 



p-jn; ra-o+sV 

± IC9 ICIO 




CONNECTOR] 
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PA* 
PA I 
PA2. 
PA3 
Ml 
PA? 
PAfa 



1 








8 


h 








9 










10 










II 


1 ^ ft 




9 








& 


3 










ft 


EES 










Al 






f 


1 1 


AO 






5 




FLOPPY 
DISK 

lb 



Dit artikei probeert U een in- 
druk te seven van de moseluk- 
heden weike het D.D.S. te bie- 
den heeft zoals het door onze 
vriend Koen van Nieuwenhove 
werd ontwikkeid op basis van 
de in het artikel senoemde li- 
teratuur. 

Sawen net John van Sprang ben 
ik enige tijd geieden naar de 
«erkende D.O.S. van Koen gaan 
kiiken in Leuven (Beisie). We 
zijn van dit uitstapje terug- 
gekeerd net de zekerheid dat 



er sprake is van een erg in- 
teressant operating system 
waaraan een groot voordeei 
is verbonden: het gaat ver- 
gezeid van volledige docu- 
Mentatiei waarin o.a. een 
listing net coanentaar. Het 
is seschreven in het Ensels. 

De docunentatieset zal net 
als de control lerkaart en 
de coding in Eprom ter be- 
schikking koaen. U kunt bii 
de redaktie inl ichtingen in- 
winnen. (H.L van Pelt) 



(Uitwerking van de schema's! Fridus Jonkwan) 
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ROPPY- 
DISK- 
CONNECTOR 



BOEKEHLIJST VQ08 6582 GEBMJIKERS. 

In de boekeniiist voor 6592 gebruikers wrdt inforw- 
tie verstrekt over is de Handel verkritfbare boeke* 
en ti Jdschriften. 



C6H S95B DOS-listing 

Betriebssyste* in Detai I 

Dr. Ruprecht, ca. IBS Pasina's ffi, losbl. 

ISBN 3-SS322-B15-9 Priis: Fl. 125,= 



in gepl. 
3e druk 



Kl. 



Dit nasiagtterkie bevat het voiiedig van coHtmtaar voor- 
ziene besturinsssystee* van de Comtodore 8151 schiifwhw- 
genaenheid. Saaen met de inieidins van de auteur it de 
princiPiele opbouw van het DOS en de aanier. uaarop de 
beide Processoren 9ebruik sakeri van het geh«jg*n belt u 
in staat eike funktie van het DOS te beg Mi pen, voorzover 
u de E5B2 aachinetaal beheerst. 

Bi J lauwkeurige bestudering vindt u biivoorbeeld een be- 
sc her mi rigs v lag tegen ongeHenst wissen in de directory: 
een uogeliikheid USR-fi les als MachinetaaiProgratwa's via 
de achijfgeheugeneenheid te venter ken; een auto-start ou- 
tie; of geheuaenpiaatsem die aanlooo- en Bitlooptijd van 
de diskette bepaien. Uanneer u effektief gebnik «aakt 
van de geboden infornatie, kunt u copieer- en doPl i ceerbe- 
veiiigiwen uitnerken en eigen diskette-fomaten schrij- 
ven of nieuwe data-struct«ren mtHikketen. 
Naast deze vrii special istische toecassingen wordt ook de 
nieuwsgierigheid van prograt*eurs gewekt: u kriigt hier- 
*ee inzicht over de saaenwerking tussen twee 6582-proces- 
soren. HierbiJ kowt nog het dataverkeer via PIfi's aet de 
centrale 6502-processor van de OH. Het werken net drie 
processoren is op zich al een studie waard. 



K2FD0S : fl Floppy Disk Operating 

System for the 8080 
Kenneth 6. Welles $ 20.80 

BYTE BOOKS 
ISBN 8-07' 069206-8 
(flan dit boek ontleende Koen van 
hi ieu wen hove het D.O.S. uit boven- 
staand artikei.) 



PET INTERFACING 
J.H. Downey en S.H. Rogers 
flanwi jzingen voor bouw en ge- 
bruik van een drietal typen ge- 
swcialiseerde interfaces. 
262 p.; Priis: Fl, 71.11 

APPLE PftSCAL GftJES 
D. Hergert en J.F. Kalash 
Coeputerspeiietjes in aiie vor- 
«en en varieteiten geprograt)- 
aeerd in een genakkei iik lees- 
bare Prosramseertaal. 
371 p.; Priis: Fl. 65,78 
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**** :+::+:* + * * :+: * :+: + ***** *: * ** * ********tfi****>l<i|s** 

***,ti 

STAR - TREK **** 

**** 

********* + ****::+:!+::+:*:^ 



t , 



f f / 



MOEILI JKSGRAAD 1,2 OF 3 I 

^■A^SSt^ 0 ^' , 2-M0EILIJK. 3=GEVAARLIJK. > ! ? 
MOMENTJL ft. U. B. 
DIT ZIJN JE ORDERS : 

VERNIETIG DE 21 KLINGONEN EN 

3 KL I NGQNBAS I SSCHEPEN. 

JE HEBT DAARVOOR DE TIJD TOT 3TERDATUM: 35: 
ER ZIJN 2 BflSISSTERREN OM DE ENTERPRISE 
OPNIEUW TE BEVOORRADEN. PAS OP VOOR AANVALLEf 
EEN BASISSTER. MEER DAN 3 KL I NGONSCHEPEN 
HEM VERNIETIGEN. 

JE OPDRACHT BEG I NT IN HET KWADRANT: DENEB IV 



~ — — _ — 



# 

* 



* 



(*> 



COMMANDO : 
COMPUTER WfiCH" 



STERREDAGEN 31 

STERREDATUM 3500 

TOESTAND GROEN 

KWADRANT 2 , S 

SECTOR S , 7 

PHOTON TORPEDO'S IB 

TOTAAL ENERGIE 3000 

SCHILD 0 

KLINGONEN 21 

KLINGONBASIS 3 



its**::*: 



*>)•:•+::+: 



13005 

:+::+: + :+: 



OP COMMANDO: 

COMPUTER OVERZICHT VAN HEELAL VOOR KWADRANT » 2 , S 

E 7 S 

H-:tf:H-:+ **** 
**** 

**** 
*<m w * *i 

**** 

***** 
**** 

**** 

KOERS 7S-9) ? 
SPRQMGFACTQR (0-8)'' 

3CHADE CONTROLE MELDT i PHOTON LANCEERBUI ZEN REPERATIE GEVORDERD. 

LT. UHURft MELDT EEN BOODSCHAP VAN DE VLQOTCPMMANDANT 
GEEN TOESTEMMING DM RU I MTEG REN Z EN TE □VERBCHRI JDEN. 
SPRONGMOTOREN GESTOPT IN SECTORS 6 7 g vc " ourmi JutN ' 
VAN KWADRANT: 2,8 

AT SECTOR 6 , 8 OF QUADRANT 2,8. 
STERREDAGEN 



1 






4 


| **** 

2 **** 


**** 
+ + 


**** 
**** 




3 **** 


**** 
**** 


**** 
**** 


**** 
:+::+: +.H-: 


5 ***** 


**** 


:+:*::+::+: 


+ + 










5 *£*** 


**** 


**** 


**:+::+: 










7 **** 


**** 


:•) :*:+:>».: 


**** 










g *.*** 


**** 




**** 


COMMANDO s 










* 

* 



<*> 



STERREDATUM 
TOESTAND 
KWADRANT 
SECTOR 

PHOTON TORPEDO'S 
TOTAAL ENERGIE 

lElNfeBNEN 
KLINGONBASIS 



30 
3501 

GROEN 
2 , 8 
6 , 8 
10 

2982 

ft 

3 
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SUPER STAR TREK 

Nederlandse gebruiksaanwi j zing 
Door: A.S.Hankel, 

W. Kloosstraat 32, 

7606 BB Almelo. 

1 . Inleiding : 

Super-star-trek is een Basic-programma , gebaseerd op de televisie- 
serie STARTREK. Er bestaan diverse versies ,geschreven voor diverse 
micro-computers ,meestal voornamelijk afhankelijk van het gebruikte 
type terminal. Deze versie gaat uit van van een VDU van 16 regels, 
elk met 64 kolommen,en is dus geschikt voor gebruik met de door 
de meeste Junior-eigenaars gebruikte Elekterminal . 

De eerste versie van dit programma is al in 1972 geschreven door 
ene Mike Mayfield, voor een HP2000C. Het werd een standaard-pro- 
gramma in februari 197 3,toen het werd opgenomen in de software-bi- 
bliotheek van HP. (Hewlett Packard) 

Later werd het programma aangepast voor BASIC-PLUS , de basic die 
gebruikt wordt door DEC-computers .Weer later werd het aangepast 
voor Microsoft-Basic , dus meerdere statements op een regel. De 
laatste wijziging bestaat uit het vertalen van het programma in 
het Nederlands. 

2. De opzet: 

Met Super-star-trek bevind je je in het heelal,dat voor deze gele- 
genheid is verdeeld in 2 kolommen,elk van _ 8 regels. Elke (kolom, 
regel) is weer verdeeld in 4 kolommen,elk met zijn eigen -astrolo- 
gische- naam. Dit resulteert uiteindelijk in een 8x8 matrix. 
Elke matrix-eenheid is weer opverdeeld in 64 sekties,ook weer 
8x8. 

3. Het doel: 

Jij,de man/vrouw achter het toetsenbord ,bent de gezagvoerder van 
het ruimteslagschip "Enterprise". Je taak is, het heelal, en dus 
00k de aarde , ruimtelijk bolwerk van cultuur , techniek en filosofie 
,te bevrijden van de aanvallen van de alom gehate 'Klingon', een 
wreed en brutaal soort wezens. Hulpmiddelen daarbij zijn een 
ultra-modern slagschip ,gebouwd volgens de meest moderne technolo- 
gie,een bekwame staf van medewerkers , een aantal krachtige wapens , 

en een zeer effectief afweersysteem . Helaas zelfs de meest 

moderne techniek faalt wel eens , zoals je zal blijken. 

4. Vriend & vijand: 

Goed,je hebt een,laat we zeggen , perfect slagschip .Helaas heeft 
elk slagschip , hoe perfect het 00k mag zijn,slechts een beperkte 
hoeveelheid munitie aan boord. Gelukkig maar,dat daarin is voor- 
zien. Ter ondersteuning van jouw missie hebben de aardse autoritei- 
ten gezorgd voor een aantal zogenaamde basissterren . Hopelijk 
kom je ze op tijd tegen,anders zou het niet onmogelijk zijn dat 
de Klingons je te grazen nemen doordat je munitie en/of energie 
verbruikt is. Ook Klingon ' s hebben hun ondersteuning, in de vorm 
van, van een moeilijk doordringbaar schild voorzien, Klingonbasis . 
Klingonbases hebben , vanwege hun relatief gebrekkige technologie , al- 
leen een achtergrondf unktie . Maar: mocht je een Klingonbasis tegen- 
komen , vernietig hem dan wel,zodat bevoorrading van Klingon ' s niet 
meer mogelijk is. Helaas gaat de vernietiging van een Klingonbasis 
niet onopgemerkt voorbij aan eventueel andere,in het heelal aanwe- 
zige Klingonbases. Hun reaktie zal zijn, dat er,ten eerste, een 
extra aantal Klingon ' s in de strijd komen. Ten tweede,zal de Kling- 
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onbasis Klingon's afsturen op jouw basisster met het doel hem 
te vernietigen. 

5 .Moeili j kheidsgraad : 1-Beginner 2-Ge vorderde 3-Waaghals: 
Als je het programma hebt gestart ,wordt op een gegeven moment 
gevraagd , volgens welke moeilijkheidsgraad je wilt f unktioneren . 
Je kunt kiezen tussen 1,2 of 3- Als je dit voor het eerst leest, 
neem dan 1. Denk je een professional te zijn,neem dan 2. Mocht 
je daarop ook uitgekeken zijn probeer dan 3 maar. Je komt er dan 
wel achter,dat het verschil tussen 2 en 3 veel groter is dan tussen 
1 en 2 . Hoe ? .... Dat merk je vanzelf ! 

6.Spelregels en opmerkingen: 

Binnen Super-star-trek worden de volgende symbolen gebruikt: 
<*> Enterprise 
> ! < Basisster 
+K+ Klingon 

* Ster 
+M+ Klingonbasis 

000 Beschermschild om Klingonbasis 

Er zijn 9 kommando ' s , elk van 3 letters. Het is voldoende om de 
eerste letter ervan in te toetsen, gevolgd door een CR. De komman- 
do ' s zijn: 

NAV Navigatie; koers en af stand. 

KAS Korte af stand scan; overzicht huidige sektie. 

LAS Lange af stand scan; overzicht omliggende kwadranten. 

PHA Phaser kontrole. 

TOR Torpedo kontrole. 

SCH Schild kontrole; bescherming begen vijandelijke wapens . 

DAM Overzicht schadetoestand . 

COM Hulpcomputer wordt ingeschakeld . 

XXX Om ontslag in te dienen. 
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Toelichting op een aantal kommando ' s : 

NAV vraagt om Koers (0-9") en Sprongfaktor (0-8) . 
Een koersgetal tussen 0 en 10 komt overeen met 
de richting ,gerelateert aan een kompas,en wel 
als volgt : l=oost 2=noordoost 3=noord 4=noord- 
west 5=west 6=zuidwest 7=zuid 8=zuidoost 9=oost,en 

1 is dus gelijk aan 1. Een sprongfaktor mag varieren 

tussen 0 en 8. Faktor 1 komt overeen met een sprong 
van precies 1 kwadrant. Let wel op dat je binnen 
de grenzen van het heelal blijft. Zowel koers 
als sprongfactor hoeven niet perse integer te 
7 zijn. 

LAS geeft een overzicht van de je omringende kwadranten. Jijzelf 
staat daarbij in het midden. Info over de omringende kwadranten 
haal je uit het rijtje getallen in elk kwadrant. De betekenis 
ervan is, van links naar rechts: 1 -Aantal Klingonbases 2-Aantal 
Klingon's 3-Aantal basissterren 4-Aantal sterren. 

PHA vraagt om de hoeveelheid phaser-energie die je op een Klingon, 
of op meerdere Klingon's wilt afvuren. Deze hoeveelheid gaat van 
de totale energievoorraad af . Te weinig phaser-energie zal weinig 
of geen effect geven. 

TOR vraagt om de richting van de af te vuren torpedo. Voor de 
koers geldt hetzelfde richtings-ef f ect als voor NAV. 
SCH kontroleert de hoeveelheid energie die je gebruikt voor het 
beschermschild om de Enterprise. Te weinig schild kan tot vernieti- 
ging leiden , terwi j 1 een te groot schild teveel energie aan de 
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totaal-hoeveelheid ,waardoor je niet meer zou kunnen navigeren. 
DAM geeft een overzicht van de status van essentieele systemen 
van de Enterprise . Een status kan varieren tusssen 1 en +1. Waarde 
0 is neutraal . Een negatieve waarde betekent dat dat systeem -tij- 
delijk- uitgeschakeld is. 

COM schakelt de hulpcomputer in. Dit kommando is weer onderverdeeld 
in een 6-tal sub-kommando ' s ,namelijk : 

0 Overzicht totale ruimte. 

1 Rapport huidige toestand. 

2 Photon(en) torpedobaan gegevens. 

3 Basisster navigatiegegevens . 
k Koers/af stand berekening. 

5 Ruimte regio overzicht. 

Vernietigen van een Klingonbasis . 

Het vernietigen van een Klingonbasis kan alleen m.b.v. torpedo's. 
Een is er nodig voor het beschermschild , een voor de Klingonbasis 
zelf. Het is niet mogelijk om torpedobaan naar de Klingonbasis 
door COM te laten berekenen , Wanneer de torpedo de Klingonbasis 
mist,zal het resultaat zijn,dat jij a.h.w. door het heelal geslin- 
gerd wordt. Je komt dan in een niet te voorspellen kwadrant te- 
recht . 

In het oorspronkelrjke programma was het mogelijk dat er een fout- 
melding optrad , wanneer je je verplaatste binnen het kwadrant, en 
er 1 of meerdere Klingon's aanwezig waren. Dit is,althans gedeel- 
telijk, ondervangen. In deze versie bestaat er een melding van 
UFO 's, die de zaak bedreigen. Gevolg is echter wel , dat het door 
KAS weergegeven beeld onsamenhangend overkomt , althans op de VDU. 
Bij twijfel is het raadzaam COM te raadplegen omtrent de juiste 
positie van Klingon('s). 

Het opnieuw bevoorraden van de Enterprise geschied door tegen 
een basisster te manouvreren ,met behulp van NAV. Je krijgt dan 
nieuwe torpedo's en energie. 

Wanneer jouw basisster aangevallen wordt door Klingon's -en dat 
zal het geval zijn als jij een Klingonbasis vernietigd hebt- zal 
de aanwezigheid van 3 of meer Klingon's in het zelfde kwadrant 
als waar jouw basisster zich bevindt , ertoe leiden dat die basisster 
vernietigd wordt. Afhankelijk van het aantal basissterren kan 
het noodzakelijk zijn, dat met alle mogelijke middelen te voorkomen. 
Immers , zonder basisster ben je helemaal op jezelf aangewezen. 
Opmerkingen over PHA (phaser). 

A:Het effect van PHA neemt af naarmate de afstand tussen jou en 
de Klingon('s) groter is. 

B:Wanneer je hard genoeg geraakt word door een Klingon,zal hij 
schade veroorzaken , zodat er automatisch een DAMreport komt. 
C:Als jij een Klingon niet hard genoeg raakt,zal hij geen schade 
hebben.Je sensors zullen je daar info over geven. 

D : DAM laat je automatisch weten wanneer een of meerdere systemen 
gerepareerd zijn. 



VEEL SUCCES ! 



Het pro9ra»«a SUPERSTflRTREK 
is op een aparte band te ver- 
Krijsen tesanen Met de hand- 
leidins door Fl. 17.58 over 
te schr 'liven op postrekenins 
841433 t.n.v. H.L van Pelt 
te Kriapen a.d. Ussel. 



De listing van het Basic pro- 
grama is tevens op papier 
te verkrijsen voor Fl. 7,58. 
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TEKST E502 ASi 


0818 


1780 


0020 




0030 




0040 
0050 




0060 
0070 
0080 




0090 
0100 




0110 




0i20 




0130 




0140 




0150 




0160 




0170 




0180 
0130 




0200 




0210 




0220 




0230 




0240 




0250 




0260 




0270 




0280 
0230 




0300 
0310 




0320 




0330 




0140 




0350 




B3EB 




0370 
0380 




0333 
0400 




0410 




0420 




0430 




0440 
0450 




0460 




0470 




0480 
0430 




0500 
0510 




0520 




0530 




0540 




0550 




0560 


I 1780 


0570 


: 1780 


0580 


! 1780 


0530 




0600 


' 1780 D8 


0E10 


! 1781 fl2 00 


0620 


1783 18 


0630 


: 1784 A0 20 


0640 


: 1786 BC 35 17 



EKBLERV3.1 PAGE 01 

TEKST ORG $1780 

*** TEKSTVERWERKING MET TELETYPE KSR33 OF ASR 

DOOR: J.C.J. BEIJER 
BASTINGLAAN 7 
2614 GP DELFT 
TEL. 015-134269 



KJM-1 



DIT PROGRAMMA IS GEBAEERD OP EN PROGRAMMA TEKSTVERWERKING VAN 
DRS. A.R. VAN DER BURG, DIE ZO VRIENDELIJK WAS ZIJN ORIGINELE 
VERS IE TER BESCHIKKING TE STELLEN. 

IN AFWIJKING VftN HET ORIGINELE PROGRAMMA ZIJN DE "WRITE" EN 
"REWRITE" PROGRAMMES SAMENGEERST IN HET GEHEUGENGEDEELTE VAN 
ADRES $1788 T/M $17E5 MET ALS KQPIEENTELLER ZERO-PAGE ADRES 
$00EE, TERWIJL TEVENS FLOWCHARTS EN AANGEPASTE GEBRUIKSAANWIJZING 
ZIJN TOEGEVOEGD. 

DOOR TEPASSING VAN DATAOPSLAG VANAF ADRES $2080 IS HET MOGELIJK 
PER CA. 4K BYTES EEN DICHTBEDRUKTE "A4" PAGINA TE PRODUCEREN. 
DE MOGELIJKHEDEN VAN HET PROGRAMMA ZIJN: 

1. WRITE 

EEN VIA HET TOETSENBORD VAN DE TELETYPE INGETIKTE TEKST 

OP PAPIER AFDRUKKEN VIA DE KIM-1 (DUS NIET RECHTSTREEKS OF LOCAL) 

2. DAARNfi 1 A 100 KOPIEEN LATEN AFDRUKKEN DOOR DE TELETYPE H.B.V. 
DE BIJ "1" IN HET GEHEUGEN VAN DE KIM-1 QPGESLAGEN DATA. 

3. TIJDENS HET INTIKKEN (WRITE) KORREKTIE VAN ZOJUIST GEMAAKTE 
FOUTEN (HET GEHEUGEN "VERGEET" DE N KARAKTERS ALS U N MAAL 
RO (RUB-OUT) INDRUKT. 

OPMERKINGEN: 

1. ALLEN VOOR VERANDERAARS ! 

VOOR HET OPNEMEN VAN DIT (NIET RELOCATABLE) PROGRAMMA IN EEN 
EPROM MOETEN DE VARIABELEN BUITEN HET PROGRAMMA WORDEN E- 
BRACHT (BIJV. NAAR "ZERO PAGE"). 

HIERTOE ZIJN WIJZIGINGEN NOODZAKELIJK VAN DE INHOUD VAN DE 
VOLENE ADESSEN: 

$1787-$1788-$179F-$17A0-$17B6-$17B7-$17BD-$17BE-$17C0 
$17C1-$17CA-$17CB-$17CD-$17CE 

EN/E ALS U EN ANDER "EERSTE DATA-ADRES" KIEST DAN OOK: 
$1782-$1785-$1734-$1735-$17BB-$17C3-$17D0-$17D1-$17D6-$17D7 

2. VOOR HET AANSLUITEN VAN DE TELETYPE VIA 4 DRAADJES AAN E 
APPLICATION-CONNECTOR WORDT VERWEZEN NAAR E KIM-1 USER 
MANEL (BLZ 17-18-13-20-50-51-52 EN 53) 

U VINDT HIER TEVENS GEEVENS OVER EEN SCHAKELAAR DIE NOG 
NODIG IS VOOR DE KEUZE: KIM-1 TETSENBORD OF TELETYE- 
TOETSENBORD (KIH-1 LOCAL). 

NB. EEN PRETTIGE WERKWIJZE IS E SCHAKELAAR OP DE KAST VAN 
DE TELETYPE EN VIA EEN KAEL MET EEN 6(E MEER) PQLIGE 
KONNEKTOR OP E KIM-1 AANSLUITEN. 
BIJ^EEjrVERHUIZING" HEFT U DAN NIET ftLLES TEELIJK TE 

ETCH * $1E5A 
PRTBYT * $1E3B 
DUTCH * $1EA0 

START1 CLD ; INIT-ROUTINE 

LDXIM $00 
CLC 

LDYIM $20 
STY $1795 
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0650 


: 1789 90 01 




BCC 


HAALCH 


08519 


i ~*nT\ nn 

i 178B Cfl 


TERUG 


DEX 




8670 


j ■inn am v*fi jr* 

: 178C 28 5ft IE 


HflfllCH JSR 


GETCH 


8688 


: 178F C9 7F 




CHPIM 


$7F 


8598 


: 1791 FB F8 




BEQ 


$2888 


8788 


: 1793 9D 00 20 




STftftX 


8718 


: 1796 E8 




INX 




8728 


: 1797 C9 84 




CHPIM 


$84 


8738 


: 1799 DB 18 




BNE 


VERDER 


8748 


: 179B 28 Bl 17 




JSR 


SUBR 


men 

8758 


: 179E ftD 95 17 




LDfl 


$1795 


8758 


■ 4 ~Tf\ 4 A/I TT% 4 r" 

: 17fll 28 3B IE 




JSR 


PRTBYT 


8778 


- 17fl4 8fl 




TXft 




8788 


■ 4 ~I ACT An "TTl 4 

! 17fl5 28 3B IE 




JSR 


PRTBYT 


8738 


4 Tnn i n Aft 4 n 

! 17fl8 4C 2D 19 




JHP 


$192D 


8888 


: 17AB 28 Bl 17 


VtKUtH 




SUBR 


8810 


: 17AE 18 




ffi 




8828 


! 17ftF 90 DB 




BCC 


HftftLCH 


8838 


: 17B1 E0 00 


SUM 


CPXIM 


$88 


8848 


s 17B3 D0 03 




BNE 


RTS 


8858 


: 17B5 EE 95 17 




INC 


$1795 


8858 


: 17B8 60 


RTS 


RTS 




8878 


: 17B9 D8 


START2 CLD 




8888 


: 17BA A8 28 




LDYIM 


$28 


8898 


i -Try-. r\ nn n a j **t 

! 17BC 8C Dl 17 




STY 


$17D1 


8988 


: 17BF 8C D7 17 




STY 


$17D7 


8918 


■ 4 n>nA aa nn 

: 17C2 fl2 80 




LDXW 


$88 


8928 


! 17C4 E8 


NEXT 


INX 




WIT A 

8938 


■ 4 *tfip r*n nn 

: 17C5 E0 00 


CPXIM 


$88 


0948 


: 17C7 D8 06 




BNE 


PftGTEL 


0950 


a —Try n r r f n j ^ — » 

: 17C9 E Dl 17 




INC 


$17D1 


0950 


: 17CC EE D7 17 




INC 


$17D7 


0970 


: 17CF BD 88 28 


PflGTEL LDflftX 


$2000 


(Men 
mot) 


> I'Uz iH He It 




JSR 


DUTCH 


0998 


: 17D5 BD 08 28 




LDflflX 


$2808 


1888 


17D8 C9 84 




CHPIM 


$84 


1818 


. 17Dfl D8 E8 




BNE 


NEXT 


1028 


17DC F8 




SED 




1838 


17DD ft5 E 




LDftZ 


$E 


1848 


17DF 38 




SEC 




1058 


: 17E0 E9 81 




SBCIM 


$81 


1058 


' 17E2 85 E 




STflZ 


$EE 


1078 


17E4 D0 D3 




BNE 


START2 


1080 


17E6 00 




BRK 



PAGE 82 

OHDAT $80F1 IS GELADEN MET $88 IS CARRY ALTIJD CLEAR 
VERMINDER X NET 1 ZODAT VORIG TEKEN KAN WORDEN OVERSCHREVEN 
MONITOR SUBROUTINE 0M TEKEN VAN TELETYP OVER TE NEMEN 
K0NTR0LER OF RUB-OUT IS IMGEDRUKT 
Z0 Jfli DAN NAAR "TERUG" 

Z0 NEE. BERG HET TEKEN DAN Of OP ADRES $2BB8+X+DELTA 
VERH00G X, ZODflT HET VOLGENDE ADRES HORDT AANGEUEZEN 
K0NTR0LER OF HET EINDE VAN DE TEKST (EOT) BEREIKT IS 
INDIEN MET, NAAR "VERDER" 
INDIEN WELi DAN NAAR "SUBR* 
BRENG HO-DEEL LAATSTE DATA-ADRE NAAR ACCU 
EN PRINT BYTE 

BRENG LO-DEE LAATSTE DATA-ADRE NAAR ACCU 
EN PRINT BYTE 
TERUG NAAR DE MONITOR 



; VERH00G HQ-DEL VAN DATA-ADRES MET 1 
; REWRITE 



5 PRINT CHARACTER 
? END OF TRANSMISSION ? 

? BRENG INHOUD VAN AANTAL "K0PIEEN"-TELER NAAR ACCU 
! (A) - 1 NAAR A 

? (A) NAAR "AANTAL KOPIEEN'-TELER 

; LAAT TELETYPE PROMPTING MESSAGE 

*** GEBRUIKSAANHIJZING TEKSTVERWERKING *** 
*** MET KIM-1 EN TELETYPE *** 

NETSPANNING AAN 
RS (RESET) 
$17F2 - 93 
$17F3 - 02 
$17F9 - 00 
$17FB - 1C 
$17FC - 00 
S17FD - 1C 
$17FE - 00 
$17FF - 1C 
$B0F1 - 88 

$1873 
GO 

START CASSETTE RECORDER MET PROGRAMS "TEKSTVERyERKING" 
NADAT PROGRAMHA IN GEHEUGEN ST AST DE CASSETTE TERUGSPOEEN. 



WOD'SJBMOyAllOp'MMM 

DEjlj JEJ □ jjj^J KENNER 



TEKST 



6502 ASSEMBLER V3.1 



PAGE 03 



OPNEMEN VAN TEKST IN GEHEUGEN. 



VAN LOCAL OP KIrM 
G 

RETURN 
RETURN 
LINE FEED 
LINE FEED 

6EWEN5TE TEKST INTIKKBN, EEN PRAKTISCH BEGIN IS BIJVOORBEELD 

EEN KNIPLIJN: 

GEVOLGD DOOR 
RETURN 
LINE FEED 
LINE FEED 

OH DAARNA MET DE EIGENLIJKE TEKST TE BEGINNEN EN VERVOLGENS 
LINE FEED 
LINE FEED 
LINE FEED 
LINE FEED 
INDIEN 
AFSLUITEN 

REWRITE. 



EEN KNIPLIJN EN 

DE THEE TOETSEN CTRL EN EDT/D (TEGELIJKEBTIJD). 



ZIE HIERVOOR TOT EN NET HET TERUGSPOELEN VAN DE CASSETTE. 
$00EE NOET HET GEUENSTE AANTAL KOPIEEN BEVATTEN, 01 A 99 (VOOR 
100 KOPIEEN 00 INTIKKEN). 
START OP ADRES $17B9 
NA SPATIE MET G STARTEN. 

HET INGETOETSTE AANTAL KOPIEEN UORDT HIESNfl AFGEDRUKT. 



MfiftK VAN JUNIOR EEN SENIOR 



FOCAL VOOR JUNIOR 



BASIC COMPRESSOR FOR T* PET 



In DE 6582 KENNER nr. 26 pu- 
bliceerde de he«r P.Fransen 
het art ike l met bovenwnowt- 
de titel, handelend over de 
wijze waarop de 5 1/4 inch 
f ;OPpy drives aan de JUNIOR 
geKoPpeld Kunnen worden en 
het PROTON disk operating 
systea dat hieraee in ver- 
faand staat. 

Zoals bekend worden aan le- 
den van de KIM Gebruikers- 
Ciub Nederiand kortinsen ge- 
geven op disK-drive en con- 
trol ierkaarti waarbii aen 
bovendien een aanzienlijk 
paKket software ontvangt 
voor rond Fl. 1085,=. 
Iniichtinsea hierover ziin 
te verkrijgen b\i de redak- 
tie. 

Het artikel is op papier be- 
schikbaar door Fl. 10.= te 
gireren op postrekening nr. 
841433 t.n.v. M.L. van Pelt 
te Krispen a.d. Ussel. 



Deze Basic-achtise interpre- 
ter set veel NistUftdiW funk- 
ties zoals: sin(x), cos(k). 
tan(x), arctan(x), wortel- 
trekken. in(x), los(x), en 
z'n krachtige strings is in 
Nederiand! 

Van de Fir»a The 6502 Pro- 
gran Exchange, 2920 West Mo- 
ana, Reno, NV 89509, America, 
heeft dhr. J. Jansen toestew- 
aing oa naaens deze firaa 
de JUNIOR FAST FOCAL hier 
in Nederiand en otraeving te 
verkopen. 

In America kost de cassette 
net Manual $40,== Plus 15 * 
verzendkosten. Focal zal de 
leden worden aangeboden voor 
vriiwel dezelfde prijs. 
Inforaatiess 
Dhr. J. Jansen, 
Gerardswes 30, 
6525 RT Niimesen. 
Tel.: 080 - 562032. 



Gebruikers van een PET kun- 
nen bovensenoeMd prosraaaa 
uit editie 25 op band bestel 
Jen door kontakt op te neaen 
«et Ruud UPhoff, sekretaris 
van onze club. 

BASIC PROGR. SERVICE RAPPORT 



In DE 6502 KENNER nr. 25 pu- 
biiceerde Maarten van Hintaa 
dit oavangriJke proaraaea 
dat in de praktijk wordt ge- 
bruikt. Het is een edicatief 
stuk prograaweertechniek dat 
voor de I iefhebbers apart op 
band verkrijgbaar is. Bestel 
I en door Fl. 12,50 over te 
schrijven op postrekening nr 
841433 t.n.v. U.L. van Pelt 
te Kriapen a.d. Ussel, net 
venselding: Cassette Service 
Rapporten. 
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a s 



KENNER 



0020t 
0030s 



0060s 
0070s 
0080 s 
0090 s 
0100s 



0t30s 
0140s 
0!50s 
01601 
0170 s 
0180s 
0190s 
0200s 
0210 s 
0220s 
0230s 
0240s 
0250s 
0260s 
0270s 
0280s 
0290 s 
0300s 
0310s 
0320s 
03301 

03401 0200 

03501 

0360s 

03701 

0380 s 

03901 

04001 

0410i 

04201 

04301 

04401 

04501 

0460s 

0470s 

0480s 

0490s 



* TELEFOONBEAMTUOORDER * 



I VANDEMBRIES8CHE MARRY 
ELISABETHLAAN 26 
3070 K0RTENBER6 
IEL6IE. 

TEL.! 02 / 7599777 



IE HEESTE HOME COMPUTERS ZIJN UI T 6ESCHAKELD 
UANNEER MEN AFUEZI6 IS , ON NU DEZE 
" SPARE TIME " TE 1ENUTTEN MET HIERNAV0L6ENB 
8 IMPEL PR08RAHHA MAARBIJ MEN BE COMPUTER 
BEBRUIKT AL8 TELEFOOMBEANTUOORBER. 

AL8 NARBMARE V0L8TAAT HET BE TELEFOOMLIJM 
WAR EEN BEL8TR00HBETEKTIE8TROOMKETEM EN EEN 
INPEBANTIETRANSFO (600 OHM ) TE VOORZIEN 
ZOALS HET SCHEMA AAN6EEFT , MEN 8EBRUIKT PB7 
ALS SENSE POINT VOOR DE BELSTROOH EN PB0,PB1 
EN PB2 ALS OUTPUT 

BE JUNIOR IS VOORZIEN VAN 2 CA88ETTEREC0RBERS 
EN BEZE BEBRUIKT MEN RESP. VOOR UEER8AVE EN 
OPNANE. 

BE AUBIO VERBINBIN6 VAN BEIBE UORBT AAN DE 
MINI-INTERFACE 8ESCHAKELB TERUIJL IN BE OPMAME 
RECORBER EEN LE6E CASSETTE UORBT 6EZET 
EEN CASSETTE NET MEERBERE HALEM EEN OP VOORNAHB 
0P6EN0HEN BERICNT UORBT IN BE NEEROAVERECORBER 
6EPLAAT8T EN START HET PR06RAHNA OP 10200 
BELKABAN8 ,UEER6AVE EN OPNANETIJO KUNNEN 6EUIJZI60 
UORBEN BOOR IN PA6. 0 ANBERE UAARBEN TE PLAATSEN 
104 18 ONG. 1 SEC. 

TELEF 0R6 10200 

PAOINA 0 A0RE8SEN 



10 00 RINOK * 10010 

11 00 RESPT • toon 

12 00 RECOT • tOOl 2 

13 00 COUNT * tOOl 3 



POORT ABRESSEN 



00 18 PBD 

02 18 PBOD 

82 1A RBB 

83 1A RBBB 



« 



11800 
11802 
I1A82 
«1A83 



TUB TU88EN 2 BELSTRONEN 

ANTUOORBTIJB 

OPNANETIJO 

TUBE LUKE COUNTER 



OATA REG. VIA 6522 

BATA DIRECTION REG. VIA 6522 

BATA RE6. RIOT 6532 

BATA DIRECTION REG. RIOT 6532 



0510s 0200 A9 10 INIT 


LBAIH 


$10 


ZET TUBER 




0520s 0202 05 10 


STAZ 


RIN6K 


RINGKADANS - 


4 SEC 


0530s 0204 A9 50 


LBAIH 


• 50 






0540s 0206 85 11 


STAZ 


RESPT 


ANTUOORBTIJB 


. 20 SEC 


0550s 0208 A9 60 


LBAIH 


160 






0560s 020A 85 12 


STAZ 


RECOT 


OPNAMETIJD « 


30 SEC 


0570s 020C A9 FF 


LBAIH 


♦FF 






0580s 02BE 8B 83 1A 


STA 


RBBB 


ZET ALLE POORTEN OP 



LUOD'SJBMOyAHOp'MMM 



KENNER 



Ala* - 


A 1 4) 4 AA A1 4 A 

0211 8D 82 1A 




OTA 

STA 


Don 
KfP 


1IT TCAMC tM DlflT 
Ul 1 OARO In KIU 1 


0600s 


AAAA AO 7C 

0214 At 7F 




L0Aln 


A7C 

*/r 


7 c T DRA TAT PSA A| c UTTC* 
It I rBU IUI riO HLO VI I W 


AHA. 

061 On 


AAli Mfk A 1 4A 

0214 81 02 18 




OTA 

STA 


oonfi 


r u DB7 Al C TMBAUft TH III A 

tr Pp/ ALo IAohAU in VIA 
























V0*v I 












0630 : 












0660: 


AAAA AO AA 

OZlT At 00 


U AT Al 

BAIN 


1 nA f At 

LDAIN 


AAA 

too 


ai cad rniiurrb 

CLEAR COUNTER 


Ai?ft . 

©4/0: 


A4I A OK 1 7 

OZlf B3 U 




CTA7 

STAZ 


A AllAlT 

COUNT 




Af AA. 

06801 


Attn xn a a to 

OZID A0 00 18 




LDA 


Don 

PDD 


1 PITA YUAAUR 

LEES IN6AN8 


a i OA • 

O6T0S 


AAAA U OA 

OZZO Zt BO 




Akin t aa 
ANDIA 


a OA 

*80 


rrui/n ATT ~r 

ENKEL 8IT 7 


A7AA ■ 

0/00: 


AAAA f»0 OA 

02Z2 Cr 80 




AUQ m AA 

CMP I A 


AAA 

180 


in T\r-7f r*r"ki 

IS DEZE EEN 


A7f A . 

0/10: 


AAAA CA AO 

0ZZ4 rO Zt 




Af A 

DEB 


A T T II A 

RITU0 


aa ki a Al. Tiirriir ai*i ataaau 

6A NAAR TUEEDE BELSTR00H 


A77A. 

0/20: 


AOOl AO re 

0ZZ4 At rr 


1*1 CAO 

CLEAR 


1 li A 1 it 

LDAIN 


A CC 

IFF 


7AU1FT Ar Ap T BflAATPU 

ZuNIET RESET PO0RTEN 


A77.A< 


a a A* an AA to 
vzzo ov w 10 




OTA 

9lA 


Don 
r bu 






BD BO IA 
VZZP BU OZ 1A 




CTA 
»l A 


RDD 




V/9VI 


hilt AO A1 




LPAin 


Art1 
f VI 




V/oOI 


A01A |i 
0Z3Q BD 13 




CTA7 

STAZ 


COUNT 


II A PUT AHA A A* npn 

UACHT 0N0. 0.25 SEC 


A77A • 
0//VI 


AA7A A A 70 AA 

0232 20 38 02 




|AA 

JSR 


net av 

DELAY 
NAIN 


A7BA« 


aoia ir to ao 
OZJa 4l» It OZ 




JHP 


r Al AA TtTDtm AAA AD OP A Y Al 

EN OA TERUO NAAR DE6IN 


A7DA a 












AO A A . 

OoOOt 












vol V! 




* DELAY ROUTINE * 




AOAA , 












AfilA. 

0830: 


AA-1A At l*AT 

0ZJ8 A2 13 


DELAY 


LDXIH 


tcs 




AO A A a 

0840: 


AA7A A A AA 

023A AO 02 


L00PA 


LDYIM 


tD2 




0850: 


A A A A 

023C 88 


L00PD 


DEY 






AA 1 » , 

0860: 


A fk 7 r, AA AA 

0231 CO 00 




CPYIN 


♦00 




0870: 


AAit aa rn 

023F DO FB 




DNE 


L00PD 




ABBAt 


AOA 1 PA 




DEX 






uotv: 


AAAA r-A AA 

VZ4Z tv 00 




CPXIN 


too 




aoaa- 
vtvu: 


A7A1 AA C A 

VZM Wv r 6 




DNE 


L00PD 




AAA A - 

©yio: 


All A / A 1 4-7 

0244 C6 13 




DECZ 


COUNT 




vtzv: 


AAAA A| f -* 

0Z4S A3 13 




LDAZ 


COUNT 




Ot30: 


AAAA AA AA 

024A C? 00 




CHPIH 


too 




AO A A m 


A 0 if AA A* A 

024C DO EA 




DNE 


DELAY 




AAKA - 

0y50: 


024E 60 




RTS 






AO/A. 

0t6v: 












A07A - 

Ot70: 












AAAA _ 

0980: 












AAAA - 

OttO: 




* TUEEDE DELSTR0ONCHECK * 


1000: 












4 A 4 A . 

1010: 


aa if AC 1 A 

024F A5 10 


RITU0 


LDAZ 


RINGK 




4 AAA. 

1020: 


AOKi OK «7 

0251 85 13 




STAZ 


COUNT 


UACHT TOT 


1030: 


A *t K 1 AA ** A A r > 

0253 20 38 02 




JSR 


DELAY 


V0L8ENDE BELSTR00H 


1040: 


«nt 1 A A AA 4A 

0256 AD 00 18 




LDA 


PDD 


IS PD7 0PNIEUU H006 ? 


1050: 


AAre aa A A 

025? 2t 80 




ANDIA 


$80 




1060: 


A AD n AA AA 

0251 C9 80 




CHPIH 


180 




1070: 


0251 DO IA 




DNE 


MAIN 


Z0NIET NAAR BEGIN 


1080: 


025F A? FC 




LDAIN 


$FC 


ANDERS SLUIT LUS 


4 AAA _ 

10?0i 


AHi 1 AA AA 4 III 

0261 8D 00 18 




STA 


PDD 




4 4 AA a. 

1100: 

4 « A A A 

mo: 


AA J A AO DC 

0264 At BF 

A A 1 J MA OA |A 

0Z64 00 OZ 1A 




LDAIN 
STA 


tDF 

RDD 


EN ZET ANTUOORDRECORDER 


1120: 


026? A5 11 




LDAZ 


RESPT 


UACHT ANTU00RDTIJD 


1130: 


0241 85 13 




STAZ 


COUNT 




1140: 


026D 20 38 02 




JSR 


DELAY 
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1150s 
11601 
1170i 
11001 
11 Mi 
1200s 
1210: 
1220s 



0270 
0272 
0275 
0277 
027A 
027C 
027E 
0281 



A? FA 
80 00 18 
A9 If 
•• 82 1A 
A9 12 
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m KIM wordt 3k KIH) 
Patches a. Hank*: sratis 
(ail sen b'u cassette 
voor JUNIOR + Hanuai) 

Aanschaf van source en Pit- 
ches is met serse di r«kt 
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Overschr i jvins op ccstreke- 
nins 841433 t.n.v. W.L. van 
Pelt te KrifiiPen a.d. IJssel, 
of d.M.v. biauwe sirobetaas- 
kaart. 
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AUTOHATI SC HE REGISTER UITLEZING II Paul van Niekerk 

Kievitslaan 8 
3233 BE 00STV00RNE 

Waarom nu al weer een register-uitleesprogramma? 
Was die uit 6502-Kenner nr. 16 soms niet goed? 

Welnu, het programma uit 6502-Kenner nr. 16 werkt uitstekend, 
maar ... als je toevallig de cassette-interface van Elektuur 
bezit, dan kun je dat programma NIET op de band zetten. Dit 
komt, omdat de ElektuUr-sof tware gebruik maakt van de geheu-' 
genplaatsen 1A69 t/m 1A79. Hier mag dus geen programma staan! 
Het onderstaande programma voldoet ruim aan deze eis, en kan 
dus wel op de band gezet worden. 
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1A04 


84 


F9 




STYZ INH 


1A06 


A9 


04 




LDAIM$04 


1A08 


48 






PHA 


1A09 


28 






PLP 


1A0A 


20 


8E 


ID TERUG 


0SR SCANDS 


1A0D 


DO 


FB 




BNE TERUG 


1A0F 


20 


8E 


ID 


3SR SCANDS 


1A12 


DO 


F6 




BNE TERUG 


1A14 


A4 


F9 




LDYZ INH 


1A16 


A6 


FA 




LDXZ POINTL 


1A18 


A5 


FB 




LDAZ POINTH 


1A1A 


4C 


00 


1C 


3MP SAVE 



De registers A, X en Y moeten gedisplayed worden en dus wordt 
hun inhoud getran spor teer d naar de di spl ay bu f f er s . Vervolgens 
wordt het P-register goed gezet. Het origineel staat immers 
op de stack, evenals het terugkeeradres. Nu wordt er gedis- 
played zolang er een toets is ingedrukt. Dit is natuurlijk de 
STEP-toets (ofwel de GO-toets), die men nog steeds vast heeft. 
Dan worden de registers weer geladen en springt het programma 
naar de SAVE-ingang van de monitor. In dit gedeelte van de mo- 
nitor worden POINTL en POINTH van de stack gehaald. Nu staan 
weer alle moni torf unkties ter beschikking en kan men bijv. weer 
op GO drukken. 
Misschien ten overvloede: 

- Het NMI-adres moet gericht zijn op 1A00. 

- De STEP-schakelaar moet op 'on' staan. 

- Pagina 1A mag niet stap voor stap doorlopen kunnen worden. 

Er is nog ruimte genoeg over om bijv. ook de plaatsen PAD, PADD, 
PBD, PBDD en BYTES (00F6) tijdelijk op te bergen indien men deze 
plaatsen door het te testen programma laat veranderen. 

Het bovenstaande werkt al geruime tijd uitstekend. 
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all-round 




All-round Systemen Nederland B.V., Stationsweg 23, 2182 BA Hillegom 
postbus 212, 2180 AE Hillegom. tel. 02520-19544. telex 41443 allro nl. 

WIJ LEVEREN SNEL EN TEGEN ZEER GUNSTICE PRIJZEN 



Diskettes 



van verschillende merken zowel 8" als 5£". Tevens formatted en 
cleaning dikettes. 



Papier 



voor kleingebruikers leveren wij dozen van 1000 vel 38 cm. 

Inktlinten 

linten en kassettes voor alle gangbare printers. 

Computermeubilair 

o.a. ideal e tafeltjes om een kompleet micro systeem op te plaatsen. 

Data -safe s 

een mini safe voor 80 x 5£", of 30 x 8" diskettes. 

Opbergsystemen 

o.a. voor diskettes, tapes, kassettes en alle maten output. 

Geluiddempende kappen 

brengen het geluid van uw printer 75 tot 90% terug. 

Alles voor uw computer 



■ Q all-round ^ 
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COmPBCT COmPUTER 



De PROTON Compact-Computer is modulair tipgebouwd, zodat een systeem 
op maat kan worden samengestetd, cfct achteraf bnbeperkt uitbreidbaar is. De 
naam 'Compact-Computer' is geep loze kreet: binnen* een keyboardbehuizing' 
kan een zeer kompleet microcomputersyste^m worden samengestetd. Zoals ujt 
ondervermelde specificaties blijkt is bij PROT.p'N Compact-Computer niet be- 
spaard op flexibiliteit, kwaliteit en technischeyndgelijkheden. 
Nu de Compact-Computer ook in bouwpakkeVtform wordt geleverd. komt deze 
ook binnen het bereik van de electron ica-hobbyist die hoge eisen stelt binnen een 
1 beperkt financieel budget. Voor een probleemloze bou w is soldeerervaring wel 
essentieel. De bouwpakket-vorm heeft ook als voordeel, dat de Compact-Compu- 
ter in fasen kan worden opg,ebouwd. • jT""^^?^tlPW 



Behuizing 

In de fraaie, compacte (43 x 22 x 3 ... 7 cm) ^ 
behuizing kunnen, naast het keyboard, 
alle onder vermelde boards worden ingebouwd. 
De behuizing is zeer solide - 5 mm ABS - Alle 
boards kunnen met parkers simpel worden be- 
vestigd. Alle uitsparingen en montagepunten 
zijn al aanwezig, dus de bouw is probleemloos. 

Bestelnr. BPC / 85,-- 

Keyboard 

Dit topklasse keyboard heeft 91 toetsen, waar- 
onder 16 functietoetsen en een decimal keypad 
met 1 2 toetsen. Levensduur 1 0 miljoen schake- 
lingen! De switches worden gemonteerd op een 
voorgeponste stalen montageplaat, waardoor 
op de printplaat geen mechanische kracht wordt 
uitgeoefend. Bestelnr. KB-1 -PC / 245,.-- 

Floppy-disk-controller 

Geschikt voor max. 4 drives. Uitgevoerd met 
dataseparator. Het snelle' DOS (Disk Opera- 
ting System) wordt op een Dysan 5W diskette 
meegeleverd. Bestelnr. FDC4-PC / 485,-- 

Floppy-disk-drive 

Capaciteit 400K (geformatteerd!) Qume-kwali- 
teit. 5'/4" slim-line (halve hoogte!) aanzienlijk 
sneller (track-to-track 6msec.) 

Bestelnr. FDD-2 / 995,- 



HOE TE BESTELLEN (partikulieren) 

1) vooruitbetaling (geen adm kosten • / 9 50 verzendk). 

per poslgiro nr. 27.79.91 1 of Amrobank Hilversum nr. 44.91 03 927 
t.n.v. Post Electronics, Energiestraat 36. Naarden. 

2) onder rembours (geen adm kosten ■ 
/ 12.50verzend-en rembourskosten). 
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Microprocessorboard 7 $\w!t'"»""- + 

Dit 'hart' van het systeem bevat ' 
^^^B de 6502 microprocessor, een 6522 } - f i * 

^^^^^ VIA (1 10 - IC)-vrij voor de gebruiker -, 

zeer flexibele memory-mapping met ' \ 'j '^ W ^:'^M 

Schottky-PROM, 6K monitor in PROM en It. g**~" 
een 1 0K BASIC -interpreter/compiler in PROM L_l.-' •■ >' 

met unieke faciliteiten: full-screen editing, gebruik van 'label's' (b.v. GOTO # 
BEGIN) en een hoge snelheid doordat alle sprongfunkties worden gecompileerd. 
2 socket's voor max 1 6K PROM/RAM zijn vrij. De bus is op flatcable-konnektors 
uitgevoerd. I . p. v. de 6502 is het ook mogelijk de 6802, 6809 of Z80A toe te passen 

, Bestelnr. /xPB 65 / 395,- 

Grafisch videoboard + High-speed cassette interface 

High resolution graphics: 576 x 229 dots, programmeerbaar aantal karakters/ 
regel en regels/scherm (max 25 regels van elk 80 karakters), max 8 kleuren. TV- 
uitgang + monitor uitgang. Dit summum op videogebied is ondergebracht op 2 
boards. Tevens is voorzien in een high-speed (10K byte/minuut!) cassette-inter- 
face Bestelnr. GVC-2 / 375,- 

- als low-cost alternatief voor het videoboard is een 1 6-karakter alfanumeriek dis- 
playboard beschikbaar. Bestelnr. AD16 / 145,- 

- de cassette interface is ook als apart board (b.v. als 2e interface) leverbaar. 

Bestelnr. HCI / 25,- 

64K RAM + ACIA + printerport 

De (dynamische) 64K RAM is zowel aaneensluitend als in 2x 32K te gebruiken. 
De ACIA (serieel communicatiekanaal vlgs RS232-norm) is met dipswitches in- 
stelbaar op een Baudrate van 50 .. 19200 en is uitgevoerd op een 25 p. delta- 
konnektor. De Centronics-interface is uitgevoerd op een echte' microribbon 
konnektor. Op de print is de mogelijkheid voorzien een (vertikaal) busboard te 
monteren voor toekomstige verdere uitbreiding. Bestelnr. DR64AP / 590,- 



HOE TE BESTELLEN (bednjven. mstelmgen): 

1 ) per vooruitbetaling of onder rembours (zie part ) 

2) op rekening (schriftelijk of per telex) 

Adm.kosten beneden / 250.- . / 12.50. verzendkosten / 9.50. 

Alle prijzen inci. btw Leden 20% korting 



POST ELECTRONICS 

Energiestraat 36 1411 AT Naarden 
Tel. 02159-41774- Telex 73415 



